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CHAPITRE 1 


Techniques 
de programmation 
des jeux 


Le but de ce chapitre est d'amener le lecteur à pro- 
grammer lui-même ses propres jeux sur son ordinateur per- 
sonnel Oric. Des connaissances générales sur le langage 
BASIC seront supposées connues (si cela n'est pas encore 
le cas, il sera utile de lire, dans la même collection, 
le livre “Guide de l'Oric” où les principes de la pro- 
grammation BASIC sont exposés). 


Plutôt qu'une longue et fastidieuse énumération 
d'instructions et de fonctions, ce chapitre sera composé 
d'une série de courts exemples montrant comment se pose 
un problème de programmation de jeu et comment le résou- 
dre à partir des possibilités - très étendues au demeu- 
rant - de l'Oric en matière de jeux vidéo. Quand vous 
aurez lu ce qui suit, vous serez en mesure de créer des 
jeux qui seront aussi enthousiasmants et passionnants que 
les jeux du commerce, ou ceux que l'on trouve dans les 
cafés. 


1.1 COMMENT PROGRAMMER UN JEU 


C'est la question que vous vous posez tous. Voici une 
liste des opérations à effectuer dans le cas général et 
dans un ordre chronologique. Cette liste n'est pas limi- 
tative et en matière de jeux toute initiative est la 
bienvenue. 


Tout d'abord il faut vous astreindre à ne pas commen- 
cer directement à “pianoter” sur le clavier de l'Oric. La 
création d'un jeu se fait au brouillon - cela est préfé- 
rable car cela permet de mieux structurer son programme 
rendant ainsi la mise au point plus rapide et plus sim- 


ple. 


Donc, au départ il va falloir choisir un jeu soit en 


faisant appel à votre imagination débordante et fertile 
soit en prenant un jeu classique et éprouvé. 


Puis vient la phase de définition des règles du jeu. 
Tout jeu doit la comporter. Celle-ci doit être écrite 
avec précision et détail. Combien y aura-t-il de joueurs? 
Comment se compteront les points ? Quelle en sera la du- 
rée ? Qu'est-ce qui détermine la fin du jeu ? ... etc. 


A ce niveau, des limitations du jeu sont à définir 
ainsi que la spécification des coups permis et ceux qui 
sont interdits. Des restrictions à la règle du jeu per- 
mettent souvent si elles sont bien choisies de simplifier 
beaucoup la programmation sans pour autant limiter l'at- 
trait et l'amusement qu'apporte le jeu. 


Là commence l'aspect informatique du jeu car il va 
vous falloir maintenant choisir la représentation maté- 
rielle du jeu (mode graphique utilisé, messages apparais- 
sant en cours de jeu, nom des variables utilisées ...). 


Ces choix sont fonction de vos dons artistiques car 
le graphisme de l'Oric permet une présentation impeccable 
des jeux. 


Les étapes préliminaires ont pour but de simplifier 
l'étape suivante qui est l'écriture du programme propre- 
ment dit. Elles permettent d'éviter les ambiguïtés pou- 
vant intervenir en cours d'exécution du jeu si toutes les 


possibilités n'ont pas été étudiées préalablement. Il est 
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plus simple de prévoir une éventualité plutôt que de la 
corriger sur un programme après coup. L'écriture se fera 
de préférence sur papier, en commençant par le programme 
principal qui assurera les fonctions minimales du jeu, 
c'est-à-dire l'appel aux sous-programmes utilitaires qui 
gèrent le calcul des points, l'affichage, les déplace- 
ments, la stratégie de l'ordinateur, les sons, le dessin 
‘du terrain de jeu, etc. L'intérêt d'avoir un programme 
principal et de nombreux sous-programmes est que la mise 
au point de ceux-ci peut être effectuée indépendamment 
l'un de l'autre, permettant ainsi de bâtir petit à petit 
un jeu long et compliqué en partant d'un programme prin- 
cipal simple. 


Si l'on veut effectuer des modifications dans l'as- 
pect du jeu, il suffira de modifier un seul sous-program- 
me au lieu de modifier l'ensemble du programme. 


1.2 STRUCTURE GÉNÉRALE D'UN PROGRAMME 
DE JEU 


Voyons maintenant quel est l'agencement d'un program- 
me. On peut distinguer deux sortes de structures selon 
qu'il s'agit d'un jeu rapide ou d'un jeu lent. 


La première catégorie correspond aux jeux dits ‘“en 
temps réel". Le jeu se déroule alors tout seul sans avoir 
besoin du joueur, l'ordinateur déplaçant des objets (par 
exemple une balle) sur l'écran selon les règles du jeu. 
Le joueur n'influe que sur la valeur de certains paramè- 
tres (par exemple la position de la raquette), par action 
sur le clavier ou sur une poignée de jeu. L'acquisition 
de ces paramètres ne doit pas demander l'interruption de 
l'exécution du programme. Cela est obtenu par une struc- 
ture rebouclée sur elle-même. 


Le programme ne se termine pas par un END mais par un 
GOTO vers le début du programme. 


Cette boucle principale contient une série de tests 
qui déterminent l'évolution future du terrain de jeu. 
Leur nombre doit être le plus réduit possible, pour des 
raisons de rapidité. Ils devront comprendre une scruta- 
tion du clavier qui sera périodique puisqu'elle se fera à 
chaque tour de la boucle. Voici une représentation de la 
structure générale de ce type de jeu : 
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Affichage des règles du jeu 
Initialisations 


Tracé du terrain de jeu 


Une touche du clav 
t-elle été pressée 2 







oui 


Exécuter la commande 


Déplacement des objets 


a-t-il une collision ou 
un dépassement des limites 
du terrain ? 











Traiter la collision 
ou le dépassement. 
Augmenter le score 
arrêter le jeu si fin 
de la partie. 


Ordinogramme d'un jeu d'action rapide 


s "4 


La boucle principale doit s'exécuter le plus rapide- 
ment possible. Elle ne doit servir qu'à détecter la pres- 
sion d'une touche, l'arrivée d'un événement (collision, 
dépassement des limites du jeu, du temps, impact, etc.) 
qui modifiera le déroulement du jeu. Le traitement de ces 
événements est effectué, lui, en dehors de cette boucle 
principale. On utilisera pour cela un certain nombre de 
- sous-programmes effectuant ces opérations. Il pourra 
s'agir du comptage des points par incrémentation d'une 
variable, du déplacement du joueur d'après la touche 
pressée, de tests plus fins de débordement ou de colli- 
sion permettant un traitement spécifique de ces évêne- 
ments. Ils pourront être aussi longs que l'on veut, leur 
durée étant moins critique. 


Dans la deuxième catégorie on trouve les jeux lents. 
Ce sont tous les autres jeux qui font appel au joueur 
pour continuer la partie, en lui laissant un temps de ré- 
flexion. Les instructions peuvent alors s'ordonner liné- 
airement selon la structure suivante : 


1) Présentation du jeu. 
2) Jeu proprement dit. 
3) Détermination du score et affichage des résultats. 


4) Fin du jeu, ou demande de nouvelle partie (on re- 
lance alors en 2). 


L'ordinateur sert alors d'arbitre et d'adversaire 
avec qui l'on communique par le biais de questions et de 
réponses au clavier. L'ordinateur attend une réponse pour 
réagir selon les règles établies. 


Le temps d'exécution n'est pas critique. On peut 
alors établir des stratégies de jeu beaucoup plus com- 
plexes que dans ies jeux d'action. 


Voyons maintenant comment l'on doit utiliser les pos- 
sibilités du langage BASIC pour la programmation des 
jeux. 


1.3 PROGRAMMATION DES JEUX D'ACTION 


Ce qui fait la qualité d'un jeu d'action, c'est sa 
rapidité à déplacer des objets sur l'écran. 


Pour recréer l'illusion du mouvement une méthode d'a- 
nimation - couramment utilisée- consiste à visualiser un 
caractère (graphique ou redéfini à votre goût) à une 
coordonnée puis, après une courte attente, à imprimer un 
caractère "blanc" (espacement) à la même coordonnée. Ce 
qui effacera le caractère précédent. Ensuite il faut cal- 
culer les nouvelles coordonnées puis recommencer au dé- 
but. Cela consiste à faire de l'animation image par 
image, tout comme au cinéma. 


On voit alors que la vitesse de déplacement dépend de 
l'écart entre chaque nouvelle coordonnée (qui ne doit pas 
être trop grand si l'on désire des mouvements qui n'appa- 
raissent pas saccadés). Elle dépend aussi du temps mis 
par la machine pour effectuer les impressions, de la du- 
rée de l'attente entre l'impression et l'effacement. Cet- 
te attente permet de laisser visible le caractère pendant 
une durée suffisante pour qu'il ne semble pas clignoter 
lors des déplacements. 


Si dans un jeu il suffisait de déplacer un seul objet 
sans rien faire d'autre, on obtiendrait de grandes vites- 
ses (et un jeu plutôt ennuyeux!). En général il y a plu- 
sieurs objets en mouvement en même temps. Cela allonge la 
durée de la boucle d'impression et limite en fait le nom- 
bre de mobiles, si l'on veut garder un jeu suffisamment 
rapide. 


Les nouvelles coordonnées dépendent d'éventuelles 
collisions, de débordements de l'écran. La boucle doit 
donc comporter aussi des tests qui permettront de traiter 
cela. Tout ceci montre que, si l'on veut optimiser la vi- 
tesse, il faut agir sur les tests, la structure de la 
boucle et sur la prise en compte des ordres du clavier. 


1.3.1 Déplacements 
Pour commander le déplacement d'un objet sur l'écran, 


il est commode d'utiliser les touches comportant des flè- 
ches qui sont situées en bas du clavier. On utilise pour 
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cela la fonction KEY$S qui retourne une variable caractère 
dont le code ASCII vaut en décimal : 


8 vers la gauche 


9 vers la droite 


10 = vers le bas 


11 vers le haut 


La touche d'espacement peut être aussi utilisée (pour 
effectuer un tir par exemple) ; elle correspond au code 


"397 . 
La touche “Return” vaut "13". 
Voyons ce que cela donne sur un exemple. 


Pour scruter l'enfoncement d'une des quatre touches 
fléchées, on peut utiliser les instructions suivantes : 


100 REM EXEMPLE A NE PAS SUIVRE ! 
110 IF KEYS = CHRS(8) THEN GOSUB 1000 


120 IF KEYS = CHR$(9) THEN GOSUB 2000 
130 IF KEYS = CHR$(10) THEN GOSUB 3000 
130 IF KEYS = CHR$(11) THEN GOSUB 4000 


150 GOTO 100 


Les sous-programmes 1000 à 4000 contiennent les opé- 
rations à effectuer pour chacune des touches. Cette façon 
de procéder est lente. En effet, à chaque test, on prend 
un nouvel échantillon du clavier pour KEY$S (ce qui est 
assez long à effectuer) alors qu'il suffit de le faire 
une seule fois avant de commencer la série de tests. 
D'autre part, cette batterie de tests peut avantageuse- 
ment être remplacée par la structure ON GOSUB ou ON GOTO 
qui s'exécutera plus vite car il n'y aura qu'une condi- 
tion à évaluer. 


Voici une meilleure façon de procéder : 


100 M$ = KEYS 

110 ON ASC(M$) - 7 GOSUB 1000, 2000, 3000, 
4000 

120 GOTO 100 


L'expression ASC(M$) - 7 vaut successivement 1, 2, 3, 
4 suivant que l'on a appuyé sur la touche flèche gauche, 
droite, bas ou haut. 


Après évaluation de cette expression, le programme 
effectue le sous-programme dont le numéro de ligne est à 
la place donnée par le résultat de cette expression. 


Il peut malgré tout y avoir un problème si l'on ap- 
puie sur une autre touche que les flèches car la condi- 
tion de saut prend alors une valeur différente de 1, 2, 3 
ou 4. On peut alors faire précéder le ON GOSUB par un 
test préliminaire qui détectera si l'on a bien pressé sur 
une des touches valides. 


90 REM TEST DE DEPLACEMENT 

100 M$ = KEYS 

110 IF M$ > = CHRS(8) AND CHR$(11) >= M$ 
THEN ON ASC(MS$S) - 7 GOSUB 1000, 2000, 
3000, 4000 

120 GOTO 100 


La ligne 120 relance le programme à la scrutation du 
clavier qui devient ainsi périodique. Cette boucle est 
parcourue assez rapidement pour que la prise en compte de 
la touche apparaisse instantanée au joueur, alors qu'en 
réalité elle n'est pas effectuée constamment. On effectue 
alors ce que l'on appelle un “polling" du clavier. Cette 
notion peut être étendue aux autres variables suscepti- 
bles d'être modifiées en cours de jeu, le résultat de la 
modification n'étant actif qu'à chaque rebouclage du 
“"polling". Cela peut s'appliquer au changement de posi- 
tion sur l'écran. 


La position d'un mobile sur l'écran peut être repérée 
par deux variables, x et y par exemple, qui seront ses 
coordonnées et que l'on pourra utiliser pour le visuali- 
ser par un PLOT en basse résolution ou un CURSET et un 
CHAR en haute résolution. 


Pour un déplacement, il est préférable de modifier 
deux variables auxiliaires, Dx et Dy par exemple, qui re- 
présenteront les déplacements relatifs du mobile par rap- 
port à sa position précédente. 


Voici un exemple d'animation : 
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10 REM SUPERBALLE 
20 CLS : LORES 0 
30 X=3:7Y=3: DX = 1: DY = 1 
50 REPEAT 
120 X = X + DX 
130 Y = Y + DY 
140 PLOT X, Y, "O" 
150 IF X < 3 OR X > 35 OR Y € 3 OR Y > 23 
THEN GOSUB 5000 
L70: “PLOTIR; Ÿ, 0 ? 
190 UNTIL KEY$ = "S" 
200 END 
5000 IF X & 3 OR X > 35 THEN DX = -DX 
5010 IF Y € 3 OR Y > 23 THEN DY = -DY 
5020 RETURN 


Comme précédemment, pour éviter d'avoir plusieurs 
tests de suite dans la boucle (réalisée ici par REPEAT 
UNTIL, ce qui permet un arrêt du jeu quand on presse la 
touche S (STOP!)), on effectue un test global pour savoir 
si la balle (la lettre "O") est sortie des limites du 
terrain. Si cela est le cas, on exécute alors le sous- 
programme 5000 qui calcule les déplacements relatifs de 
la balle pour que l'on ait un "rebond" sur les limites. 


On peut améliorer ce sous-programme en introduisant 
un rebond et une vitesse aléatoires. 


On écrira alors : 


5000 IF X < 3 OR X > 35 THEN DX = 

— SGN(DX) * (INT(RND(1) * 2) + 1) 
5010 . IF X < 3 OR Y > 23 THEN DY = 

— SGN(DY) * (INT(RND(1) * 2) + 1) 
5020 RETURN 


Si vous êtes fatigué de voir cette balle rebondir 
sans arrêt sur les bords de l'écran, il n'y a qu'à ajou- 
ter une raquette qui vous permettra de dévier la balle. 
Pour cela nous allons réutiliser l'exemple TEST DE DEPLA- 
CEMENT pour faire bouger la raquette. 


Ajoutez dans le programme SUPERBALLE les lignes 100 
et 110 de TEST DE DEPLACEMENT. 


Si l'on veut que la raquette puisse bouger dans tou- 
tes Les directions, il faut écrire quatre sous-programmes 
modifiant les coordonnées de la raquette XR, YR. 


Ces coordonnées sont initialisées préalablement par 
la ligne supplémentaire 


4O XR = 10 : YR = 10 


Voici les sous-programmes de déplacement de la ra- 
quette 


1000 IF XR <> 3 THEN XR = XR - 1 : PLOT XR, 
VB, "I" 8 PLOT AR EL, -YR 9 

1010 RETURN 

2000 IF XR <> 35 THEN XR = XR + 1 : PLOT 
KR TR, I PLOT Xe Ts YR, 0" 

2010 RETURN 

3000 IF YX <> 23 THEN YR = YR + 1 : PLOT 
XR:. YA: “IV PLOT LR, YR = ls, 

3010 RETURN 

4000 IF YR <> 3 THEN YR = YR - 1 : PLOT XR, 
YR,. T'-4 “PLOT XR: YR, YR +1, “" 

4010 RETURN 


Il faut aussi tester la collision de la balle et de 
la raquette. Ajoutez donc la ligne suivante : 


160 IF X = XR AND Y = YR THEN DX = DX : 
DY = - DY : PING 


Que manque-t-il pour finir ce jeu ? Eh bien la créa- 
tion d'un score qui motivera le joueur. On peut compter 


le nombre de fois que vous avez touché la balle en un 
temps imparti. 


Ajoutez alors à la suite de la ligne 160 : 
SCORE = SCORE + 1 
Ce qui comptabilisera les coups de raquette. 


Il faut aussi compter le temps. On comptera en fait 
le nombre de tours de la boucle REPEAT UNTIL. 


Ajoutez : 
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180 TEMPS = TEMPS + 1 

190 UNTIL KEY$S = "S" OR TEMPS = 1000 
200 PRINT "SCORE:", SCORE 

210 END 


Amusez-vous bien à la superballe. 


1.3.2 Ecriture condensée et choix des variables 


Le BASIC de l'Oric permet certains accommodements 
d'écriture permettant un formalisme plus compact qui ac- 
célère légèrement l'exécution. 


Vous pouvez écrire les instructions et les expres- 
sions sans blancs, mettre plusieurs instructions par li- 
gne, supprimer les REM, supprimer les indices suivant les 
NEXT. 


Tout cela réduit le nombre d'opérations élémentaires 
effectuées par l'interprêteur BASIC lors de l'exécution 
d'une ligne. 


Mais cela entraîne un manque de lisibilité du pro- 
gramme et un risque d'erreur lors de modifications ulté- 
rieures du programme. Il vaut donc mieux ne recourir à 
ces méthodes qu'en dernier lieu, et — de toute façon - 
seulement lorsque le programme est déjà au point. 


Il est préférable également de ne pas utiliser des 
variables sous forme de tableaux indicés qui demandent 
plus de temps pour trouver la valeur correspondant à 
l'indice, que lorsque l'on utilise une variable non indi- 
cée. 


Utilisez de préférence XA, XB, XC que X(1), X(2), 
X(3) ce 


N'oubliez pas que seuls les deux premiers caractères 
sont pris en compte dans le nom d'une variable. Cela fait 
énormément de noms possibles. 


En fait pour obtenir des jeux très rapides et ayant 
beaucoup d'objets en mouvement simultanément, il faut 
écrire vos programmes directement en langage assembleur 
ou au moins certaines parties du jeu. 
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1.4 JEUX DE HASARD ET JEUX DE RÉFLEXION 


1.4.1 Utilisation de RND 


Un jeu est bien morne s'il ne comporte pas une part 
d'inattendu et de surprise apportée par l'intervention du 
hasard. Que ce soit le mélange de cartes à jouer au 
Poker, le lancé des dés au 421, l'arrêt de la bille à la 
roulette, ces événements dirigent le déroulement de la 
partie de manière imprévisible sans que l'on puisse agir 
dessus. Cela suffit à renouveler le jeu constamment. 


Le BASIC permet facilement de créer un nombre dont la 
valeur est calculée au hasard en utilisant la fonction 
RND(1). Voyons cela sur un exemple : 


10 REM JEU DE LA FACE MAXIMUM 

20 INPUT "JET DU DE (O/N)" ; M$ 

30 IF N$ <> “O" THEN END 

40 A= INT (RND(1) * 6) + 1 

50 B= INT (RND(1) * 6) +1 

60 PRINT : PRINT “VOUS AVEZ FAIT UN : ", A 

70 PRINT : PRINT “J'AI FAIT UN : “ ; B: 
PRINT 

80 IF A = B THEN PRINT “PARTIE NULLE" : 
GOTO 20 

90 IF À > B THEN PRINT “VOUS AVEZ GAGNE" 
ELSE PRINT “J'AI GAGNE !" 

100 PRINT 

110 GOTO 20 


Le résultat de RND(1) est un nombre compris entre 0 
et 1, mais toujours inférieure à 1. Tapez : 


PRINT RND(1) 


Ce qui est affiché est un nombre “aléatoire” en ce 
sens que vous ne pouvez prévoir quelle valeur sera affi- 
chée, mais cela n'est pas réellement aléatoire au sens 
mathématique du terme. Vous pouvez utiliser RND(1) pour 
générer un nombre aléatoire dans la gamme de variation 
que vous voulez. 


Supposons que vous désiriez obtenir un nombre entier 
compris entre 1 et 6 (comme dans le jeu de dé), en utili- 
sant RND(1), vous obtenez un nombre compris entre 0 et 1, 
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en le multipliant par 6 cela donne un nombre compris en- 
tre O et 6 (non compris). 


En prenant la partie entière par la fonction INT, on 
obtient un nombre entier compris entre 0 et 6 (non com- 
pris). Il suffit de lui ajouter 1 pour obtenir un entier 
entre L et 6 (compris). Cela simulera le lancé d'un dé 
non pipé. L'Oric est honnête ! Cela vous permettra de 
réaliser tous les jeux à base de dés tels le Yam, le 421, 
le Jeu de l'Oie, le Monopoly et bien d'autres. 


On peut toutefois faire mieux encore. Il est possible 
de tirer des lettres, des cartes à jouer, des couleurs, 
de générer une trajectoire au hasard. 


Tapez : 
PRINT CHRS$S(INT (RND(1) * 26) + 65) 


qui imprime le caractère dont le code ASCII est tiré alé- 
atoirement entre 65 et 90 ce qui correspond aux 26 let- 
tres majuscules de l'alphabet. 


Tapez 
PAPER (INT(RND(1) * 8)) 


et vous obtiendrez une couleur de fond au hasard. Le pro- 
gramme du Mastermind est un bon exemple de la manipula- 
tion des couleurs. 


On peut tout rendre aléatoire, il suffit de trouver 
une correspondance entre ce que vous voulez rendre hasar- 
deux et un nombre. 


1.4.2 Utilisation des chaînes de caractères 


Dans beaucoup de jeux de réflexion, l'ordinateur at- 
tend votre réponse sous la forme d'un mot ou d'une suite 
de caractères. C'est le cas du Jeu du Pendu ou des jeux 
utilisant des coordonnées pour se déplacer sur un damier 
ou un échiquier. 


L'acquisition de votre réponse se fait par l'intermé- 
diaire d'un INPUT ou d'un GET qui arrêtent le programme 


en attendant une entrée au clavier. 


PR 


Exemple d'entrée de coordonnées : 


10 INPUT "QUELLE POSITION (VER,HOR)" ; A$ 
20 X = ASC(LEFTS (A$,1)) - 64 
30 Y = VAL(RIGHTS (A$,1)) 


Cette partie de programme entre les coordonnées d'une 
pièce sur un échiquier. La ligne est repérée par une let- 
tre de À à H, et la colonne par un chiffre de 1 à 8. 


A la ligne 10 on entre au clavier une suite de carac- 
tères dont le premier est une lettre et le dernier est un 
chiffre. Il peut y avoir d'autres caractères entre les 
deux. Il ne peut pas y avoir de virgule, toutefois. 


La ligne 20 assigne à la variable numérique X, une 
valeur calculée à partir de la chaîne de caractères A$. 
En effet, par la fonction LEFT$(A$,1), on prend le pre- 
mier caractère à gauche de A$, puis on évalue son code 
ASCII en décimal par la fonction ASC. On soustrait ensui- 
te 64 de manière à se ramener à des valeurs comprises en- 
tre l et 8. 


A la ligne 30, la fonction VAL donne la valeur numé- 
rique correspondant au caractère le plus à droite de A$ 
qui est un chiffre. Notez que la fonction VAL appliquée à 
un caractère autre qu'un chiffre donne la valeur 0, ce 
qui peut être utile pour repérer les erreurs de frappe et 
redemander alors les coordonnées. 


Pour le Jeu du Pendu, il faut vérifier qu'une lettre 
se trouve bien dans le mot secret qu'a tiré l'ordinateur 
dans une table de vocabulaire. 


Supposons que la chaîne de caractères B$ contienne le 
mot à découvrir, on peut effectuer le test de la manière 
suivante : 


10 GET A$ 

20 FOR I = 1 TO LEN(BS) 

30 IF MIDS(B$, I, 1) = A$ THEN PRINT “IL Y A 
UN" ; A$ ; "EN" ; I 

&O NEXT I 
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A la ligne 20, la fonction LEN permet de connaître le 
nombre de caractères du mot secret. A la ligne 30, la 
fonction MID$ donne le caractère situé à la nième posi- 
tion dans le mot secret et le compare avec la lettre ren- 
trée en 10. 


Dans tous les cas d'entrée de données au clavier, il 
‘est essentiel que vous protégiez votre programme contre 
les erreurs de frappe car la poursuite d'un jeu avec des 
données fausses peut être catastrophique. 


Pour cela testez systématiquement les caractéristi- 
ques des valeurs ou caractères entrés pour filtrer les 
valeurs non licites. 


Exemple 


10 GET A$ 
20 IF A$< "1" OR A$ > "9" THEN GOTO 10 
30 A = VAL(AS) 


À étant une variable numérique on ne peut lui donner 
une valeur alphanumérique ce qui arriverait si l'on avait 
fait un GET A'‘à la ligne 10 au lieu d'un GET A$ et si 
l'on avait appuyé sur une lettre au lieu d'un chiffre. 


La ligne 20 vérifie si le caractère entré est bien un 
chiffre et ne conserve que ceux compris entre 0 et 9. La 
ligne 30 donne la valeur numérique correspondant au ca- 
ractère entré en 10. 


1.5 UTILISATION DU GRAPHIQUE DANS LES 
JEUX 


1.5.1 Présentation d'un jeu 


Cette partie d'un programme de jeu, bien qu'accessoi- 
re, améliore celui-ci. C'est une introduction qui doit 
présenter le titre et exposer rapidement les règles du 
jeu. On utilisera le mode Texte car il est mieux adapté 
pour l'édition de caractères alphabétiques. Il est facile 
d'imprimer une phrase dans un emplacement quelconque de 
l'écran grâce à la commande PLOT X, Y, Z$. 


X et Y étant les coordonnées de la première lettre de 
la phrase, Z$ étant une chaîne de caractères définie au- 
paravant ou une chaîne de caractères écrite entre guille- 
mets. 
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Pour rendre la présentation plus attrayante, vous 
pouvez colorer les différents messages. Cela peut se fai- 
re facilement grâce à la possibilité de concaténation des 
chaînes de caractères, c'est-à-dire d'accoler bout-à-bout 
plusieurs chaînes entre elles. 


Voyons ce que cela permet. 
Exemple : 


10 A$ = CHR$S(27) + "DRègle” + CHRS(27) + 
"Bdu" + CHR$S(27) + "AJeu" 
20 PLOT 2, 13, A$ 


imprimera le message “Règle du Jeu” en bleu vert et rouge 
au milieu de l'écran. 


La chaîne CHR$(27) + "D" place l'attribut encre bleue 
juste devant le mot règle. Les autres attributs utilisa- 
bles sont donnés en annexe. 


Vous pouvez décorer cette présentation avec les ca- 
ractères semi-graphiques ou les caractères spéciaux uti- 
lisés dans le jeu. 


Avant le début de chaque jeu, et de chaque changement 
de décor, il faut effectuer un effacement de l'écran. 
Pour cela utilisez CLS en mode basse résolution ou HIRES 
en haute résolution. Cependant, dans ce cas, la couleur 
de l'encre et celle du papier devient noire et blanche à 
chaque fois. Pensez donc à remettre les couleurs désirées 
par un PAPER et un INK. 


Si vous utilisez les différents modes graphiques dans 
un jeu, la définition des couleurs doit se faire à l'in- 
térieur de chaque mode, indépendamment. 


1.5.2 Organisation de la mémoire d'écran 


Votre écran de télévision doit être considéré comme 
une page sur laquelle vous allez dessiner successivement 
l'évolution du jeu. Chaque point visualisé sur l'écran 
est défini dans la mémoire vive de l'Oric. 


Les caractères et les couleurs sont mémorisés dans 
une zone bien définie que l'on peut adresser directement. 
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Les commandes PRINT, PLOT en basse résolution et CUR- 
SET, DRAW, CIRCLE et FILL en haute résolution évitent de 
se préoccuper de la relation écran-mémoire et permettent 
de travailler avec des coordonnées verticales et horizon- 
tales. 


— Mode basse résolution 


En mode Texte, Lores 0 et 1, la page écran est divi- 
sée en 28 lignes et 40 colonnes, mais seules les lignes 0 
à 26 et les colonnes 1 à 38 sont utilisables avec les 
commandes graphiques usuelles. En effet, la ligne en haut 
de l'écran est réservée aux messages apparaissant lors de 
l'enregistrement ou de la lecture de programme avec un 
magnétophone à cassette. Elle sert aussi à indiquer le 
mode majuscule pour le clavier par le message CAPS appa- 
raissant en haut à gauche. Pour supprimer ce message, 
disgracieux dans vos décors de jeux, faites : 


PRINT CHRS(20) 


ce qui équivaut à presser [CONTROL] [T] qui inhibe le 
mode majuscule. Pour le faire réapparaître, faites une 
nouvelle fois cette commande. 


Le dessin du curseur clignotant peut être aussi sup- 
primé par [CONTROL] [Q] ou PRINT CHRS(17). 


Les deux premières colonnes servent à placer l'attri- 
but de couleur de papier et celui de l'encre. On ne peut 
écrire dans la première mais un PLOT 1, 10, 3 changera la 
couleur d'encre de la 10ème ligne en vert. Attention donc 
dans les jeux à ne pas faire se déplacer vos mobiles avec 
une coordonnée horizontale inférieure ou égale à 1. Une 
coordonnée dépassant le cadre de l'écran est signalée par 
le message “ILLEGAL QUANTITY ERROR". 


Les coordonnées horizontales et verticales repèrent 
une portion de l'écran qui couvre une grille de 6 sur 8 
points élémentaires de l'écran (appelés pixels). Un ca- 
ractère est formé de 48 pixels. Ce bloc de 48 points de- 
mande une seule case mémoire pour être mémorisé en basse 
résolution. La mémoire d'écran en basse résolution est 
donc de 28 x 40 = 1 120 cases mémoire ou octets (appelés 
ainsi car ils contiennent 8 informations binaires élémen- 
taires valant 0 ou 1). 


— 17 - 


Chacune de ces cases peut être remplie par la valeur 
que vous désirez grâce à la commande POKE, par exemple 
POKE 48162,65 met la valeur 65 dans la 48 162ème mémoire 
de l'Oric qui peut en adresser 65 536 en tout. 


L'effet produit est d'afficher la lettre A (de code 
ASCII 65) à la 3ème colonne de la 2ème ligne de l'écran. 


On peut donc faire apparaître sur toute partie de 
l'écran un caractère ou un attribut graphique si l'on 
connaît l'adresse de la mémoire correspondant à celle-ci. 


Pour déterminer cette adresse, utilisez la formule 
suivante 


adresse en basse résolution = 
48040 + (40 x Y) +2+X 


Y étant la coordonnée verticale, X la coordonnée horizon- 
tale. La colonne couleur papier est trouvée par X = -1, 
la colonne encre par X = 0. La ligne CAPS par Y = -1. 


Pour colorier et encrer les différentes zones de l'é- 
cran, déterminez les cases mémoire où inscrire un attri- 
but. N'oubliez pas qu'un attribut affecte les caractères 
placés à droite de celui-ci jusqu'à ce qu'il trouve un 
autre attribut de même type ou la fin de la ligne. 


Exemple de tracé de décors 


10 PAPER 6 

20 READ J, K 

30 FOR I = 1 TO 5 
40 POKE J, K 

50 NEXT I 

60 DATA 48880,1 


donnera un ciel bleu cyan sur un sol rouge. 


La différence entre le mode Texte et le mode Lores 
est que la mémoire est initialisée dans le premier cas 
avec la première colonne correspondant au papier blanc, 
la 2ème colonne à l'encre noire et les colonnes suivantes 
au caractère vide (code 32), alors que dans le deuxième 
cas la première colonne contient l'attribut papier 0, la 
deuxième encre blanche, et les autres colonnes l'attribut 
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papier noir ce qui fait que les attributs de couleur pla- 
cés n'affectent que les caractères ajoutés juste après, 
et non l'ensemble de la ligne. Pour colorer en Lores, il 
faut donc mettre un attribut dans la case précédant la 
zone à colorier et la remplir de caractères vides pour 
que l'attribut puisse se propager sur la zone. Utilisez 
comme précédemment une boucle FOR NEXT et un POKE. Notez 
que cela demande un certain temps pour être exécuté. 


Pour effacer un caractère sur l'écran, on peut utili- 
ser PLOT X, Y “ “ ou PLOT X, Y, 32 ou POKE W, 32 (W étant 
l'adresse correspondant aux coordonnées X et Y). 


Le caractère “pavé plein” a comm code 127 et le da- 
mier 126. 


L'ensemble des caractères peut être imprimé en cou- 
leur inverse. Il suffit pour cela d'ajouter 128 au code 
ASCII du caractère considéré. 


Exemple : 


PLOT 10, 10, 193 
ou PRINT CHR$(193) 


imprime un À en inverse. 


Cela est très utile pour avoir des objets en dépla- 
cement de couleurs différentes. C'est en effet plus 
pratique que d'utiliser un attribut placé devant le ca- 
ractère pour modifier sa couleur car il faut ajouter un 
autre attribut derrière pour rétablir la couleur sur le 
reste de la ligne ce qui demande en tout trois cases mé- 
moire et surtout trois emplacements sur l'écran pour un 
seul caractère visualisé. De plus, il ne faut pas écrire 
sur un attribut car cela modifierait son action, ce qui 
est très gênant pour simuler les collisions. 


Les mobiles doivent donc être imprimés en couleur 
d'encre normale ou inverse. Les décors peuvent, eux, être 
colorés par attribut s'ils ne se trouvent pas sur la tra- 
jectoire des mobiles. Cela vous amênera donc à dessiner 
votre terrain de jeu avec des zones de mouvements et des 
zones de décors et de messages (score par exemple). 


Je 


La plupart des jeux peuvent être réalisés en basse 
résolution mais pour obtenir des graphiques plus fins, le 
mode haute résolution offre de plus grandes possibilités, 
bien que plus délicat à utiliser surtout pour imprimer 
des textes. 


— Mode haute résolution 


11 doit son nom au fait que l'on peut modifier, pixel 
par pixel, le contenu de l'écran. On obtient ainsi une 
définition de 240 sur 200 points, plus 3 lignes de texte 
en bas de l'écran. Comme en basse résolution l'écran est 
mémorisé en mémoire mais cela demande beaucoup plus de 
place car il faut une case mémoire pour un groupe de 6 
pixels seulement au lieu de 48 en basse résolution. 


11 y a donc (200 x 240) + 3 x 40 = 8 120 cases mémoi- 
re. La correspondance entre adresse de la mémoire et 
coordonnée se fait selon la formule : 

40960 + (Y x 40) + X 


Y étant la coordonnée verticale (de O à 199). 


X étant le numéro de la colonne de 6 points considé- 
rée (de O à 39). 


La mémoire s'étend donc de 40 960 à 49 119. 
Exemple d'utilisation de la formule : 


La case mémoire où est stocké le point de coordonnées 
125, 120 est en : 


124 = 6 x 20 + 4 donc X = 20 Y = 120 


L'adresse cherchée est en 40960 + (120 x 40) + 20 = 
45780 


mémorisé en un octet en 45780 


90: 


Une case mémoire peut contenir l'information pour 6 
points ou un attribut. 


128 64 32 16 8 4 2 1 


représente 
une série de 
6 points 


motif visualisé 


encre 
papier 


si à L en 1 
inverse 0 


Calcul de la valeur à mettre dans la mémoire pour obtenir 
le motif désiré : somme des nombres au-dessus de la case 
si la case est à 1. 


Le EL 


en couleur normale donne 
64 + 32 + 8 + 2 = 106 


Si l'on fait POKE 45780,106 on obtient le motif à partir 
de la coordonnée 120, 120. 


Codage d'un attribut en haute résolution : 


inverse si L code binaire de l'attribut 


On voit que l'on retrouve les mêmes codes qu'en basse 
résolution pour les attributs. 


Le programme suivant vous montrera la définition en 
couleur maximale que l'on peut obtenir. 
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10 HIRES 

20 K= 16 

30 FOR I = 40960 TO 49120 
40 K=K+1 

50 POKE I, K 

60 IF K = 23 THEN K = 16 
70 NEXT I 


Chaque case de la mémoire d'écran est remplie avec un 
attribut de couleur de fond qui change à chaque case. Il 
en résulte, sur l'écran, une multitude de petits segments 
de couleurs différentes. 


Pour imprimer un caractère en mode haute résolution, 
et donc pour faire mouvoir les mobiles d'un jeu, il faut 
utiliser la commande CHAR N, M, FB qui imprime sur l'é- 
cran à partir de la position précédente du curseur, le 
caractère de code ASCII N, choisi dans le jeu normal (M = 
0) ou alterné (M = 1), avec la couleur d'encre (FB = 1), 
avec celle du fond (FB = 0), en inverse (FB = 2) ou n'im- 
prime rien (FB = 3). Cette dernière possibilité peut être 
intéressante pour faire une impression conditionnée par 
la valeur FB. La position du curseur n'est pas modifiée 
par cette commande. On voit que l'on ne peut afficher 
qu'un seul caractère à la fois. 


Pour des mobiles plus grands (composés de plusieurs 
caractères), il faut utiliser une boucle FOR NEXT. 


Exemple d'impression de texte en haute résolution : 


10 A$ = "SCORE :": N = 6 : X = 10 : Y = 100 
20 GOSUB 30 

30 FOR I = 1 TO N 

40 CURSET X = I * 8, Y, O 

50 CHAR ASC (MIDS(A$, I, 1)), O0, 1 

60 NEXT I 


En ligne 40, il faut découper le mot à afficher en 
tranches d'un caractère. 


Pour chaque message ou mobile composé, faites exécu- 
ter un sous-programme semblable à celui-ci. 


N est la longueur du mot. 
X et Y les coordonnées de la première lettre. 
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Pour effacer un caractère, il faut imprimer le même 
caractère avec FB = 0 donc en couleur de fond ou imprimer 
le caractère plein (code 127) en FB = O0. 


1.5.3 Les caractères graphiques sur ORIC 


Tout jeu visuel demande l'utilisation de caractères. 
L'Oric a des possibilités très variées dans la forme des 
caractères utilisables. 


À la mise en route, l'Oric charge en mémoire vive 
deux jeux de caractères. Le jeu standard contient les 
caractères alphabétiques, les chiffres et la ponctuation. 
Le jeu “alterné” contient, lui, les caractères graphiques 
basse résolution utilisés pour le réseau télématique 
Prestel en Grande-Bretagne. Ils conviennent très bien 
pour délimiter les limites d'un terrain de jeu, car ils 
sont formés d'une mosaïque de rectangles élémentaires. 


— Codage des caractères PRESTEL 


Le motif de base de ces caractères est illustré à la 
figure A. Il comprend six rectangles formant un grand 
rectangle de la taille d'un caractère normal. Chacun des 
sous-rectangles peut être noirci selon le code du carac- 
tère. 





Fig. À : Motif de base d'un caractère Prestel 


Pour trouver ce code, tracez le caractère désiré sur 
le motif et faites la somme des nombres contenus dans les 
sous-rectangles noircis. 
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Exemple 





Fig. B 
1+2+4+16 + 32 = 55 


Pour obtenir le code, il faut ajouter 32 à ce nombre 
pour avoir le code ASCII utilisable. 


Pour faire apparaître le caractère correspondant, 
pressez [ESC] [I] (ce qui met en place le mode semi-gra- 
phique pour les caractères suivants de la ligne) puis 
pressez la touche dont le code ASCII vaut le code que 
l'on vient de calculer. Ici on a 55 + 32 = 87 qui est le 
code ASCII de la lettre "W". Pressez [W] et il apparaît 
le caractère dessiné à la Fig. B. 


Essayez, pour d'autres codes, de trouver la touche 
correspondante. Si au cours d'un programme, vous désirez 
faire apparaître ces caractères spéciaux, vous pouvez 
faire comme ceci 


PRINT CHRS(27) + “IW" 
Cela fera apparaître le caractère de Fig. B. 
27 est le code ASCII de la touche [ESC]. 
I peut être remplacé par d'autres attributs selon que 
l'on veut faire clignoter, changer l'encre ou le papier 
sur le reste de la ligne. On doit faire un CHR$(27) pour 


chaque attribut. Les caractères qui suivent I sont pris 
dans le jeu “alterné”. 


=" 94 


— Caractères personnalisés 


Malgré le double jeu de caractères de l'Oric, cela 
peut vous sembler insuffisant et peut-être désirez-vous 
utiliser d'autres caractères spéciaux. Si vous désirez un 
trèfle, un carreau, un pique et un coeur pour visualiser 
un jeu de cartes cela est possible. 


En effet, il est possible de redéfinir tous les ca- 
ractères de l'Oric car ils sont définis en mémoire vive 


que vous pouvez donc modifier par programme. 


C'est très utile pour créer vos personnages et vos 
mobiles dans les jeux. Vous obtiendrez ainsi de très 
beaux graphismes et donnerez une touche professionnelle à 
vos jeux. 


Pour redéfinir un caractère, commencez par dessiner 
“ 


une grille de 6 sur 8 cases. Puis dessinez à l'intérieur, 
le motif que vous désirez. Noircissez les cases où passe 


un trait. 


Après quelques essais, vous obtiendrez un motif cor- 
respondant à la forme désirée. 


Exemple : définition d'un monstre. 





Fig. C : Dessin du motif du caractère à définir 


Chaque caractère demande 8 places en mémoire corres- 
pondant aux 8 lignes de la grille. 


_- 25 — 


Pour trouver le contenu de ces mémoires, faites la 
somme des nombres contenus dans les cases noircies pour 
chaque ligne d'après la grille donnée en Fig. D. 


Ls2f16[8{4p2fr 


Pour notre exemple cela donne : 


ligne : 16 + 2 = 18 
ligne : 8 + 4 = 12 
ligne 1 32 +16+8+4+2 +1 = 63 


1 

2 

3 
ligne 4 : 32 + 8 + 4 + 1 = 45 
ligne 5 : 8 + 4 = 12 
ligne 6 : 16 +2 =8 
ligne 7 : 32 + 16 + 2 + 1 = 51 
ligne 8 : 0 


Il reste maintenant à déteminer à quelle adresse de 
la mémoire il faut ranger ces valeurs. Dans la mémoire 
vive de l'Oric, une zone est réservée aux définitions des 
caractères. Cette zone commence en 46 080 et s'arrête en 
47 999. les caractères sont rangés dans l'ordre croissant 
de leur code ASCII par suites de 8 nombres (dans l'ordre, 
ligne 1 à 8). Les caractères standard étant définis avant 
les caractères “alternés” (voir table de correspondance 
entre code ASCII et emplacement en mémoire dans l'an- 
nexe). Pour modifier un caractère (par exemple £,©,1, 
qui sont peu usités et qui ont comme code ASCII 94, 95, 
96), faites une série de POKE dans les adresses données 
en annexe (46080 + (code ASCII du caractère x 8) + numéro 
de la ligne concernée pour un caractère standard et 47104 
+ (code ASCII du caractère x 8) + numéro de la ligne pour 
un caractère “alterné"). 


Exemple de sous-programme type effectuant le change- 
ment de caractère : 


5 REM * DEFINITION DE CARACTERE 


10 READ J 
20 FOR I = O TO 7 

30 READ K 

40 POKE J +I, K 

50 NEXT I 

60 DATA 46600, 18, 12, 63, 45, 12, 18, 51,0 
70 RETURN 
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transformera le caractère À en un monstre après un GOSUB 
10. Ce sous-programme peut être utilisé pour d'autres ca- 
ractères en modifiant la première valeur du DATA. 


Vous trouverez de nombreux exemples de caractères 
ainsi définis dans le jeu des envahisseurs de l'espace. 


Pour vous aider dans la définition de caractères spé- 
ciaux, voici un programme très utile et pratique permet- 
tant de dessiner un motif de caractère et d'obtenir 
ensuite les valeurs à mettre dans le DATA du sous-pro- 
gramme DEFINITION DE CARACTERE. 


Pour l'utiliser, pressez les touches [G] pour gommer 
la prochaine case, [espace] pour noircir la prochaine 
case, les flèches pour déterminer la position de la pro- 
chaine case. 


Le dessin du caractère apparaît en grand sur l'écran. 


Modifiez-le jusqu'à ce que vous soyez satisfait de la 
forme obtenue puis tapez [F] pour obtenir les DATA cor- 


respondant au dessin. 


Le programme vous demandera quel caractère doit être 
modifié. Vous pouvez taper la touche correspondant au ca- 
ractère ou bien entrer le code ASCII pour les caractères 
qui ne sont pas sur le clavier. Faites RETURN ensuite. 
Attention pour le code ASCII, veillez à ne rentrer que 
les chiffres correspondants du code sinon les valeurs ob- 
tenues ne seraient pas bonnes. De toute façon le program- 
me vous donne le code avec lequel les calculs ont été 
faits. Choisissez ensuite le jeu standard ou alterné et 
vous obtiendrez les résultats. 


Notez que les valeurs des adresses données ici, cor- 
respondent au mode TEXTE et qu'elles ne sont pas les 
mêmes en haute résolution. Cela n'a pas d'importance car 
si vous définissez vos caractères avant de faire un HIRES 
les mémoires seront automatiquement modifiées lors du 
passage en haute résolution. 


10 REM * AIDE À LA DEFINITION DES 
CARACTERES SPECIAUX * 

20 X = 16 : Y = 10 : CLS 

30 PLOT X, Y, 64 

40 GET K$ 


= 107.2 


290 


300 
310 
320 
325 
330 
335 
340 
345 
350 
355 


IF K$ = CHR$(32) THEN A$ = CHR$(127) 

IF K$ = "G" THEN A$ = CHR$(32) 

IF K$ = "F" THEN GOTO 120 

IF K$ << CHR$(8) OR K$ > CHR$(11) THEN 
GOTO 40 

ON ASC (K$) — 7 GOSUB 320, 330, 340, 350 
PLOT X, Y, A$ 

GOTO 40 

PLOT 2, 20,"QUEL CARACTERE VOULEZ VOUS 
DEFINIR ? " 

INPUT BS$ 

IF LEN (B$) > 1 THEN B = VAL(B$) : GOTO 
160 

B = ASC (B$) 

PLOT 2, 22, CODE ASCII :”+STRS(B) 

INPUT "STANDARD(S) OU SEMI-GRAPHIQUE(A)" 
; C$ 


46080 : GOTO 210 
47104 : GOTO 210 


[es 
LE 
a 
Las 
Nu 
H 
ps) 
ti 
Z 
Z 
Wu 


FOR J = O TO 

IF SCRN(X + 1, Y + J) = 127 THEN D(J) 
D(J) + 2°(5 -1) 

NEXT J, I 

PLOT 2, 23, “VOICI L'ADRESSE DE DEBUT ET 
LES DATA" 

PLOT 1, 24, STRS(N + B * B) : FOR I = 0 
TO / : PLOT 8 + 1 * 4, 24, STRS(D(1)) : 
NEXT 1 

INPUT "VOULEZ VOUS DEFINIR UN AUTRE 
CARACTERE : C$" 

IF C$ = "O" THEN RUN 
END 

IF X — 1 > 15 THEN X 
RETURN 

IF X + 1 < 22 THEN X = X + L 
RETURN 

IF Y + 1 < 18 THEN Y 
RETURN 

IF Y —- 1 > 7 THEN Y = Y - 1 
RETURN 


(l 
4 
1 
en 


(l 
< 
+ 
e 


Pour retrouver les caractères normaux, vous pouvez 
appuyer sur le bouton de Reset qui se trouve sous l'appa- 
reil ou faire CALL #555 qui effectue la même opération. 
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Si vous trouvez que les caractères sont trop petits, 
vous pouvez en accoler plusieurs pour former un plus 
grand motif. Définissez alors chaque caractère selon le 
motif qui est recouvert par la taille de ce sous-carac- 
tère. Un bel exemple de ce procédé est visible dans le 
jeu Cavalier. 


1.5.4 Terrain de jeu et déplacement 


Après avoir choisi le mode de définition qui vous 
semblera le mieux adapté au jeu, dessinez sur une grille 
(voir annexe) représentant l'écran, les décors et la zone 
d'évolution des mobiles. Fixez l'emplacement des messages 
(score, temps limite, instructions, etc). Si vous voulez 
avoir plusieurs couleurs sur l'écran, prenez garde à 
laisser un espace vide devant chaque début de zone à co- 
lorer, cela pour pouvoir y placer l'attribut assurant le 
coloriage. Etudiez bien les limites du terrain de jeu. 
Grâce à la grille vous déterminerez les coordonnées de 
chaque partie de l'écran ainsi que l'emplacement en mé- 
moire de celle-ci. 


Pour planter le décor, utilisez une série de POKE 
pour placer les attributs de couleurs ou de choix de jeu 
de caractères. 


L'ordre dans lequel cela est effectué doit être étu- 
dié car cela peut donner un curieux effet. 


Exemple 


10 PAPER 3 

20 N = 48452 

30 FOR I = 1 TO 10 

40 POKE N + I * 40, 17 
50 POKE N + 5+I * 40, 18 
60 NEXT I 


Ce programme trace un rectangle de 5 sur 10 caractè- 
res en rouge sur fond vert. 


Tel qu'il est écrit, vous constaterez à l'exécution 


qu'il fait apparaître des bandes rouges fugitives sur 
l'écran. Il est facile d'éviter cela en permutant l'ordre 


= 10e 


des lignes 40 et 50. En effet, la ligne 40 met un attri- 
but rouge qui affecte donc toute la ligne après lui. La 
ligne 50 met un attribut vert qui rétablit la couleur du 
fond. La présence de cet attribut vert arrête l'effet de 
l'attribut rouge. Donc, si l'on place l'attribut vert au- 
paravant, l'attribut rouge n'agira que sur 5 caractères. 


En prêtant attention à ces détails vous obtiendrez un 
décor qui s'établira sans traînée sur l'écran, ce qui est 
tout de même plus satisfaisant esthétiquement. 


1.6 UTILISATION DES POSSIBILITÉS SONORES 


Avec le générateur de sons programmable incorporé à 
l'Oric, la création de bruitages devient un jeu en lui- 
même. 


La plupart des jeux demandent une sonorisation pour 
renforcer le réalisme des décors ou pour marquer l'évolu- 
tion de la partie en cours. Les tirs de projectiles sont 
accompagnés d'un SHOOT retentissant, ou d'un ZAP sidéral, 
les collisions ou les cibles touchées résonnent d'un EX- 
PLODE, les différentes manches des matchs sont annoncés 
par des PING. Tout ces bruitages ne doivent pas être con- 
sidérés comme décoratifs mais au contraire faire partie 
intégrante du jeu. Ils doivent donc être peu nombreux car 
leur cumul les rend inopérants et fatigants. Donc les 
sons ne seront utilisés que lors de modifications du dé- 
roulement du jeu pour signifier ces changements au joueur 
pour qu'il puisse réagir à leur signal. L'effet de sur- 
prise est à rechercher et il est bon d'avoir un bruit 
spécifique à chaque mobile. L'Oric permet la création de 
sons originaux et variés. 


1.6.1 Sons prédéfinis 
Avec les commandes PING, ZAP, EXPLODE, SHOOT, l'Oric 
couvre la grande majorité des bruitages pour jeux d'ac- 


tion. 


Utilisez-les donc souvent car l'effet obtenu est ga- 
ranti. 
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Ces sons ressemblent beaucoup à ceux des jeux du com- 
merce. On peut créer de nouvelles possibilités avec ces 
sons prédéfinis en les répétant successivement de manière 
rapide. 


Par exemple : 


10 FOR I = 1 TO 10 


20 PING 
30 WAIT 10 
40 NEXT I 


donne l'effet d'une cloche de voiture de pompiers d'au- 
trefois ou signaler l'immersion d'un sous-marin. 


Essayez aussi avec ZAP. 


1.6.2 Sons préfabriqués 


Le générateur de sons possède trois canaux indépen- 
dants et un générateur de bruits qui peuvent être mlan- 
gés aux autres sons. La puissance du son (l'amplitude de 
la tension de sortie) peut être modulée par sept formes 
d'enveloppe dans l'instruction PLAY (TE, NE, EM, EP). EM 


valant 


be [ 1 ou 2 donne un son de durée 
finie dont l'amplitude monte 
2: || rapidement puis baisse lente- 
ment (1) et inversement (2). 
La durée du son dépend de la 
période d'enveloppe EP. 


Pour EM valant de 3 à 7 le son est continu, 


35 NNKA 3 et 6 sont équivalents à 1 et 
2 mais en se répétant. 


ER COSES 


s 41- 


La fréquence du son émis est programmée par un MUSIC 
ou un SOUND. La note ou la période étant définie par un 
nombre, elle peut être une variable BASIC et donc ainsi 
permettre la modulation de fréquence par variation de la 
période dans une série de SOUND répétés. 


Exemple 


10 REM * SIRENE AMERICAINE * 


20 N = 100 
30 DN = 1 
40 REPEAT 
50 REPEAT 


60 N=N + DN 
70 SOUND 1, N, 10 
80 UNTIL N = 120 OR N = 80 


90 DN = - DN 

100 UNTIL KEY$ = CHR$(32) 
110 SHOOT 

120 END 


Ce court programme crée une variable N qui croît de 
80 à 120 puis décroît de 120 à 80 et ainsi de suite. N 
étant le paramètre période de la ligne 70, celle-ci est 
modulée et passe du grave à l'aigu puis au grave imitant 
ainsi le son des sirènes de voitures de police américai- 
nes. 


Essayez d'autres valeurs de N ou de DN et du test li- 
gne 80. La ligne 100 arrête le son en appuyant sur la 
barre d'espacement. 


Beaucoup de bruits de moteurs peuvent être imités en 
utilisant le générateur de bruits. 


Par exemple l'ambiance de la cabine d'une caravelle : 


10 REM * CARAVELLE * 
20 SOUND 4, 10, O 
30 PLAY 1, 1, 7, O 


La ligne 20 autorise le mélange canal 1 et bruit. La 
période de 10 donne un son aigu et perçant imitant les 
turbines des réacteurs. Le son est produit par la ligne 
30. Le paramètre de période d'enveloppe est à © pour 
avoir le son à sa hauteur normale sans modulation d'amp- 
litude. L'enveloppe 7 est choisie pour avoir un son con- 


tinu. 
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Si l'on module l'amplitude du bruit, on peut obtenir 
le bruit d'une machine à vapeur. 


10 REM * LOCOMOTIVE * 
20 SOUND 4, 100, O 
30 PLAY 1, 1,.3, 200 


A la ligne 30, une augmentation du dernier paramètre 
ralentit la cadence. 


Pour signaler le rebond d'une balle sur les limites 
du terrain, il serait bon de faire entendre un “CLOP". 


Faites : 
CALL # FB03 
et vous entendrez le son émis par une pression sur une 


touche du clavier mais sans toucher celui-ci. On exécute 
en fait un sous-programme de la ROM BASIC de l'Oric. 


= “99 


CHAPITRE 2 


Jeux 
de hasard 


2.1 ALPHABET 


A comme Ananas, B comme Banane, C comme Citron, ... 
L'alphabet est l'une des premières choses que l'on nous 
apprend lorsque nous arrivons sur les bancs des écoles 
communales. Mais il ne suffit pas d'apprendre. Il faut 
aussi retenir. Nous vous proposons dans ce jeu un test 
qui vous permettra d'exercer votre mémoire. Le principe 
est le suivant : une lettre apparaît sur l'écran, il faut 
alors taper la touche correspondante pour pouvoir conti- 
nuer, si la touche appuyée est la bonne, deux lettres 
sont alors affichées, la première étant identique à la 
précédente, et la seconde étant nouvelle, vous devez 
alors taper dans l'ordre ces deux lettres, si aucune er- 
reur n'est commise, la suite des lettres réapparaît et 
une lettre y est rajoutée... Ce jeu peut être très long 
si vous avez une mémoire infaillible, ou très court si 
vous ne faites pas un effort de concentration suffisant. 


Le programme que nous vous proposons fera marcher vo- 
tre machine comme répétiteur. Celle-ci générera la suite 
de lettres et comptabilisera le nombre que vous aurez 
retenu. Les touches de clavier utilisées sont évidemment 
celles marquées par une lettre alphabétique. 


PCI 


REMARQUE : L'utilisation fréquente de ce programme 
vous apportera une meilleure connaissance de l'empla- 
cement des touches sur le clavier. 


Structure du programme : 
Lignes 9 à 20, présentation. 
Lignes 30 à 42, choix du niveau. 
Lignes 110 à 310 boucle principale. 
Lignes 300 à 350 sortie du programme. 


Lignes 360 à 390, affichage nombre de lettres retenues. 


9 REM KKXKKKEERNNX 

10 REN * ALPHABET x 

ni REM HHHKHEREXENX 

42 DIX X(100),Y(100),C(100) 

15 CLS 

16 PRINTCHR$#(17) 

€D PRINT:PRINT:PRINTSPC(10)"ALPHABET" 


30 PRINT:PRINT:PRINT" NIVEAUX DES DIFFICULTES* 
39 PRINT" 1:FAIBLE" 


37 PRINI 4:FORT” 

38 INPUT-QUEL NIVEAU CHOISISSEZ VOUS” :R$ 
40 ÎF ABLURS)C49 OR ASCURS))31 THEN GOTO 38 
4à NI=-VAL(RS)*50+200 

110 CLS 

120 K=Ù 

130 RÉPEAT 

140 K=K#1 

450 X(K)=INT (38KRND (4) 241 

160 YCK)=INT (26RND(1) )+1 

170 CK)=INT (26KRND (1) )+65 

480 FOR 1=1 T0 K 

490 PLOTX(L),YCL),CHRS(C(L)) 

200 A=INT (7#RND(1)) 

210 1NKA:PAPER7-A 

220 MALTNI 

230 CLS 

235 Z4P 

240 NEXT I 

250 INK 

280 FOR 1=1 T0 K 

270 GET R$ 

275 PING 

280 IF RSCCHRS(C(L)) THEN GOT 360 
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ae {F K= re THEN PRINT"BRAVO!! QUELLE HEMOÏRE PHENOHENALE" 


pi 
10 UNTIL K=100 
320 PRINT: PR NT: INPUT" VOULEZ VOUS RECONMENCER” ;R$ 
330 IF R#="0" THEN GOTO 30 
340 a a FIN" 


390 END 
360 1F R$(CHRS(6S) OR R$)CHRS(P0) THENI=1-1: GOTO 390 
3/0 PRINI:PRINT*VOUS AVEZ RETENU “5K5" LETTRES" :1=K 


380 K=100 
370 6010 3U0 


2.2 JACK-POT 


Votre porte-monnaie est bien rembourré ? Alors vous 
pouvez continuer la lecture de cette page, car nous en- 
trons ici dans le domaine des machines à sous où la pas- 
sion du jeu l'emporte sur la raison. Ce bandit manchot, 
comme il est appelé dans l'ouest américain, comporte 
trois fenêtres dans lesquelles peuvent apparaître les 
chiffres 1, 2 ou 3. Pour jouer, misez 5 francs en pres- 
sant la touche "O". Les combinaisons gagnantes sont cel- 
les qui font apparaître les trois as ou un trois. Le gain 
est alors supérieur à votre mise et est évalué aléatoire- 
ment. 


L'activité lucrative des machines à sous étant inter- 
dite, l'Oric vous prêtera en début de partie un pécule de 
100 F. A vous de le conserver si vous pouvez résister à 
l'attrait du gain. Comme toute bonne attraction d'argent, 
la machine est truquée et statistiquement elle finit tou- 
jours par vous faire dépenser au-delà de vos moyens. 


Dès que vous lancez le programme, la machine tire 
une première série de chiffres. Après il vous faudra 
presser la touche "O" pour la relancer. 

En route pour Las Vegas ! 

Structure du programme : 

Les lignes 90 à 140 assurent le tirage de la série de 
chiffres par incrémentation aléatoire de trois compteurs 
L, M, N. 

La ligne 150 teste si un des compteurs est à 3 et 


donc si le coup est gagnant. 
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La ligne 160 teste s'il y a les trois as. 


Les lignes 170 à 190 décomptent vos économies et tes- 
tent si la ruine survient. 


Les lignes 200 à 230 augmentent vos économies et cal- 
culent vos gains. 


Les lignes 240 à 300 relancent ou terminent la partie 
en cours. 


Le sous-programme de 1000 à 1080 assure l'affichage 
du Jack-Pot. 


« 


Le sous-programme de 2000 à 2040 affiche les séries 
de chiffres dans les fenêtres du Jack-Pot. 


5 OREM KKKKKKNKKENX 
40 REM x JACK POT # 
45 REM KKKHKÉXHNNKX 
20 PAPER4:IN2:CLS 
30 NC=0 


40 T1=100 
30 GOSUB 1000 
60 LEÙ 


Has 


80 N=0 

90 FOR 1=1 T0 3 

93 CALL4FBO3 

100 A=RND(1)x9+1 

410 IF A=€3 THEN L=L+1:6070140 
120 IF A={5 THEN M=H+1:60T0140 
Eu AL 


440 N 
190 TP L3 OR M=3 OR N=3 THEN GOT0 200 
160 IF L=1 AND H=1 AND N=1 THEN 6010 200 
1470 PLÔT 5,20, "Helas, vous avez perdu à francs!” 
480 TT=TT-5 
490 1F 1T{1 THEN GOTO 270 ELSE GOTO 220 
200 PLOT 5,20, "Vous etes chanceux, felicitation" 
ni TT=TT4SEINT (RNA)K5) 

se SR D “Vous avez encore"+STR$(TT)+"francs en poche 
533 G60SUB2000 
ne are 24," Voulez vous re jouer (0/N) 7" 
ET av THEN GOTO 60 

Ü EN 

Fe re 1,2," Vous avez tout dilapide en”"+STR$(NC)+"coups” 
280 NC=0 
290 TT=100 
300 GOTO240 
4000 PLO110,5, "KKKKHRRNERER" 


ER D 


1010 FOR 1=1 T0 9 
1020 A K XX 


4030 NEXT 
1040 PLO110,15, "HR" 


1080 RETURN 

2000 PLOTI1,10,STR$(L) 
2010 PLOTIS,10,STR$(H) 
2000 PLOT19,10,5TR$(N) 
2030 PING 

2040 RETURN 


2.3 SIMON 


Bleu, jaune, rouge, magenta... non ce n'est pas un 
arc-en-ciel qui va apparaître devant vos yeux, mais tout 
simplement une suite de couleurs qu'il vous faudra mémo- 
riser. Combien de ces couleurs pourrez-vous retenir ? 
Pour le savoir, il vous suffit de mettre en route le pro- 
gramme. À chaque fois un nombre croissant de bandes colo- 
rées apparaîtront sur l'écran, il vous suffira alors de 
rentrer, dans l'ordre d'apparition, le code de la couleur 
enregistrée. 


Les codes utilisés sont : 


Rouge : 1 Bleu : 4 
Vert : 2 Magenta : 5 
Jaune : 3 Cyan : 6 


Le jeu comporte trois niveaux, la cadence d'appari- 
tion croît avec le niveau. De plus chaque couleur est 
agrémentée d'un son, ce qui vous facilitera la tâche. 
Dans ce dernier but chaque bande colorée apparaîtra avec 
son code sauf au niveau 3. Un signal sonore "PING" vous 
indiquera le moment où il vous faudra rentrer les codes, 
si l'une des touches autre que 1 à 6 est enfoncée, la ma- 
chine vous préviendra grâce à un son “ZAP", il vous faut 
alors continuer à rentrer les codes. 


Attention : si la suite de codes rentrés est bonne, 


la machine recommence de suite une autre séquence, alors 
pas de moment d'inattention ... À vous de jouer. 
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REMARQUE : Contrairement au “Simon” classique la sé- 
quence est renouvelée à chaque fois, ce qui rend le 
jeu bien plus difficile. 


Pour sortir du programme, appuyez sur un mauvais 
code. 


Structure du programme : 

Lignes 9 à 30, initialisations. 
Lignes 40 à 60, choix du niveau. 
Lignes 110 à 300, boucle principale. 
Lignes 310 à 340, sortie, fin. 


Lignes 400 à 430, validation code de couleur. 


JUREMTTRENREREEX 
10 REH *x SIMON # 
11 REM KRHRHHARX 
5 UM C(100) 
& CLS :PAPERD :1NKo 
% PRINICHRS (17) 
30 PRINT:FRINT :PRINTSPE (10) “SIMON” 
40 PRINT:PRINE:PRENT NIVEAUX DES DIFF ICULTES" 
“2 FRANT" 1:FAIBLE" 
44 PRINT"  2:MOYEN” 
4b PRINT" 3:FO0R1" 
48 PRINI:INPUT'QUEL NIVEAU CHOISISSEZ OUS":R$ 
SÛ IF R$CCHR#(49) OR R$)CHRS(ST) THEN GOTO 48 
NT" iii : 


AsÙ FOR I=t TU K 

160 CCLI=INTC/KRND(T))+1 

485 PRINICHRS (27 )+CHRS (C1 

lèé [F NI7S0 THEN PM CARS CU +48) 
1é/ ee LES 


169 FRINI :PRINI 
j NEXT 1 


Aou 

200 FOR 1=1 TO K 

dAÙ GÉTRS 

200 IF R#CCHRS(C(I)+48) IHEN B010 400 
240 PRATCHRS(2/)+CHR$(CCL)+B0) 

250 FRINI 


RC De 


or Re 
HU IF K= É THEN PKINT"PIC DE LA NIRANDOLE,JE VOUS A1 RECONNU" 


300 DLL K=1ü0 

305 INK3 

310 INPUT“ Te vi RECOMMENCER CO/N)°5R$ 

de0 IF R$="0" THEN RUN 

330 PRINT'FIN" 

340 END 

Rs 1F Lise L OR K$)CHR$(55) THENZAP:1=1-1:G60T0 430 
ne PT 2PRINT VOUS AVEZ RETENU “:K-15* BARETTES COLOREES” 
41s 


420 I=K :K=100 
430 G610 290 


sp 


CHAPITRE 3 


Jeux 
d'adresse 


3.1 MUR 


Un mur de briques multicolores se dresse devant vous. 
À l'aide de trois balles et de deux raquettes, vous devez 
le détruire brique par brique. Profitez des rebonds. 


Si la balle dépasse la ligne des raquettes, elle est 
perdue. Essayez de totaliser un maximum de briques dé- 
truites. Si vous réussissez à détruire totalement un mur, 
un second se reconstruit aussitôt pour que vous puissiez 
continuer la partie. 


La raquette est déplacée par les touches fléchées 
droite et gauche. 


Structure du programme 

Lignes 20 à 40, initialisations des variables. 
Lignes 50 à 90, tracé des limites du jeu. 
Lignes 100 à 230, tracé du mur et des messages. 


Lignes 300 à 470, double boucle imbriquée gérant le 
comptage des balles et le déroulement de la partie. 
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Lignes 340 à 350, testent si demande de déplacement. 
Ligne 360 teste si la balle arrive sur le mur. 


Lignes 370 à 380, testent si la balle arrive sur les 
limites du terrain ou sur la raquette. 


Lignes 390 à 430, déplacement de la balle, testent si 
la balle sort du terrain. 


Lignes 1000 à 1040 et 3000, UE us redéfinis- 
sant le caractère de la balle. 


Lignes 1500 à 1550, comptabilisent les briques dé- 
truites et les effacent de l'écran. 


Ligne 2000, sous-programme assure le déplacement de 
la raquette. 


à REN MR 

15 REH x MUR DE BRIQUE x 

16 REM KAXXXRENERENEE D 

47 PAPERO:INKé:CLS 

eÙ GOSUB 100Ù 

JÙ B=3:TP=0:R$=CHRS (254) +CHR$ (954 )+° “ACHRS (254 )+CHRS(254)+" * 
d5 19=" “+CHR$S(254)+CHR$(254)+* “+CHR$(254)+CHR$ (254) 
40 XR=17:YR=02:XB=020 

JO REM * Trace du jeu * 

60 FÔk 1=1 T0 1Ù 

/0 REAU E,F 

80 POKE E,F 

90 NEXT I 

400 REM Trace du mur * 


110 FOR 1=4 T0 32:PLOT L,3,294:NEXT I 

120 FOR I=4 10 22:FLOT 4,1,254 Ne 2J4:NEXT 1 
130 FOR [=5 10 Y:PLOTÉ, 29,294: NEXT 1 

14Ù FOR [=27 TO 32:PLOTI,22,954:NEXT I 

190 FOR I=4Bè8é6 10 48446 STEP 40 

1é0 FOR J=1 TO 1426 

170 FOKEJ,197 

180 NEXTJ,I 

190 NB=135 


e0û PLOT21,1, "NB DE BALLES:"+STR$(B) 
210 PLOT3,1,"NB DE BRIQUES:"+STR$(B&) 
800 PLOTI,24,"TEMPG:"+#STRS (TP) 

230 PLOTXR,YR,R$ 

200 REM xBoucles pincipales * 

300 REPEAT 

310 YB=18:DX=1:DY=-1 

deû REPEAT 

330 TP= ue PLOT7,24,STR$(TP) 

340 K$=KEY$ 

390 IF K$=CHR$(8) OR K$=CHR$(9) THEN GOSUB 2000:60T0340 
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Jo IF SCRN(XB+DX, YB+DY)=127 IHEN GOTO 1500 
3/0 1F SCRNXB+UX, YB+DY)=254 ANDCYH+DY=30RYB+DY=22) THENDY=-DY :CALLHFBO3 
380 IFSCRNOXB+DX, 1B+DY)=294 THENDX=-DX:CALLAFBO3 
390 PLOTXB,YB," 
aÜU XÉ=XB+0X 
ai0 YB=YB+0Y 
äe0 PLOTXB,YB, C° 
430 UNIL 1825 
440 B=B-1:EXPLODE 
- 450 PLOTXE,YB," 
460 PLOT34 1, aSTRH(E) 
470 UNFIL 
nn UE De “VOULEZ VOUS REJOUER?(G/N)* 
ä 
900 IF Aÿ="Q" THEN RUN 
ÿ10 ÎF A$="N" THEN END 
de0 GOTO4SÙ 
ÿ90 REN *x Def caracteres * 
1000 FOR 1=46B08 T0 46815 
4010 KEAD J 
1020 POKEL,J 
1030 NEX Ï 
1040 RETURN 
4490 REM x Brique detruite * 
Re à DD ,YB+DY," “ 


0 Ba=B@+1 
1330 PLOT17,1,STR$(BQ) 
1540 NB=NB-1 

1590 1F NB=0 1HEN GOTO150 ELSE GOTO370 

1990 REH * Depl ra uette * 

2000 ON ASC(K$2-7 GOTO 2010,2050 

2010 LF XRÇ11 THEN G0TO 2040 

020 XR=XR-1 

2030 PLOTXR, YŸR,R$ 

2040 RETURN 

2050 1F ne THEN GOTO 2U80 

060 XR=XR 

2070 PLOTXR= YR,5$ 

dUBU RETURN 

3000 DATA 0,12,30,63,63,30,1 

3010 DATA 48081,2, 48281, 4, is 2,48361, FÈ nai ,48441,7 
3020 DATA49000, 21 ; 49040, 21, 49080. 21. 4896 


3.2 BARON 


Ce jeu retrace un des périples les plus connus de la 
vie du baron légendaire. Au cours d'une de ses innombra- 
bles batailles, il a chevauché un boulet de canon durant 
le trajet qui le séparait des lignes ennemies. Vous devez 
aider le baron à réaliser cet exploit hors du commun. 
Vous êtes canonnier et vous tenez prêt derrière votre 
pièce d'artillerie. 
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Par votre grande expérience de la balistique, le ba- 
ron vous a choisi pour orienter le tir. Il faut que le 
baron se pose sur la façade de la forteresse des oppo- 
sants. S'il atterrissait à l'intérieur de celle-ci, il 
risquerait d'être pris par vos adversaires et sa mission 


échouerait. 


Pour régler la trajectoire de l'obus et de son passa- 
ger de fortune, vous devez choisir la charge de poudre à 
mettre dans le fût ainsi que la hausse du tir. Celle-ci 
doit être un nombre entier positif et inférieur à 89. 
Elle représente l'angle du fût par rapport au sol. 


Fort heureusement, le baron a plus d'un tour dans son 
sac, et même s'il ne réussit pas à atteindre la muraille, 
il peut revenir au canon pour essayer de nouveau. 


La taille de la forteresse ainsi que sa position va- 
rient aléatoirement au début de chaque partie. 


Structure du programme : 


4 


Les lignes 100 à 110 fixent les dimensions et la po- 
sition de la forteresse. 


Les lignes 120 à 150 assurent le choix de la charge 
de poudre. 


Les lignes 160 à 200 permettent de fixer la valeur de 
la hausse. 


Les lignes 210 à 290 calculent la vitesse initiale et 
le paramètre de la trajectoire de l'obus. 


Les lignes 300 à 340 calculent la trajectoire. 


Les lignes 340 à 390 assurent le déroulement de la 
fin du jeu. 


Les lignes 1000 à 1030 et 4000 sont le sous-programm 
de redéfinition des caractères. 


Les lignes 2000 à 2080 dessinent la forteresse et le 
canon. 


Les lignes 3000 à 3080 dessinent le baron sur sa tra- 
jectoire. 
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SUREMTTRANERRRARENKEARRERANREERIE 
10 REM x BARON DE MUNSCHAUSEN * 
15 RÉM OEEEEIEEEEEIOEEX 
00 PAFEKS:INK5:G0SUB 1000 
30 HIRES 
40 PAPER6: INK 1 
su FILLAU, 1,43 
6D XP=10:YP=189 
100 XRELNTCRADUT) 904120) 
TD YK=189-INT CRND( 1 )#50+10) 
AE GÜSUE 2000 
120 PRINT"Charge simple(1),double()ou triple(3)° 
130 GET A$ 
440 IF ÀA$)°3" OR A$(*1* 1HEN GOTO 130 
190 R=40+B#VAL(A$) 
téû INPUT“ ne : RE :A$ 
170 FUR 1=1 TO LENCAS) 
. ce HID$4s,1, site ‘O" OR NID$(A$,1,1)}“9" THE GOTO 160 
193 IF VALTAS)(0 OR VAL(A$))88 THEN GOTO 140 
cÜD A=VAL(AS)*0.01/4533 
dl0 UX=RKCOG (A) 
def VY= fbbyus 
230 YM=VY"::19,62 
e4Ù 1F FA THEN PRINT "Hausse trop forte,recalculez!":G010 160 
d60 X=20:Y#189 
£/0 B=4,9/VX"2 
dBD C=-TAN(A) 
290 D=189 
4 ts 
J05 IF K2XR+6 AND YifR+22 THEN SHOOT:PRINI"AIE!":WALT150:G0TO 120 
310 {FY)191 OR X)231 THEN GOT012U 
315 GOSUB 3000 
de X=X+i 
330 Y=(Bx(X-20)+C)K(X-20 )+D 
340 UNTILY)YR-6ANDY{YR+6ANDX)XR-GANDX{XR+6 
343 CALLHFBO3 
goÙ At Bravo,le baron est dans la forteresse" 


360 WAIT 200 
370 Mur VOULEZ VOUS REJOUER" ;Z$ 
380 IF Z$="0" THEN GONO 30 


390 END 
1000 hs I= il TO 46855 
1010 REAL 

1020 POKE 1, J 

eh : 

1040 REIU 

2000 CASE D 6, ŸR,1 

2M0 FILL200-YR, 2, 63 

2020 CURSE TXR+6, YR+6, 1 

2030 FILL194-YR,39-INT(XR/6) , 44 
2040 CURSET20,189,1 

2050 DRAW-7,3,1 

2060 CURSET17,195,1 

2070 CIRCLE4,1 

2080 RETURN 

3000 CURSETX, Y,1 

3005 CHAR9S,0,1 

3010 CURNOVO, -8,0 

3020 CHAR96,0,1 


x Se 


3030 CURSETXP, ŸP,1 
3050 CURNOVO, -8,0 
3060 À 


3085 CURSETXP , YP, 1 
3070 XP=X:YP=Ÿ 


80 RETURN 
4000 DATA 58,57,62,18,58,1,0,0,0,0,0,04,60,24,16,60 


3.3 MISSILE 


Pourquoi donc cette planète désolée intéresse-t-elle 
tous ces vaisseaux hostiles qui veulent atterrir pour 
s'emparer des lieux ? C'est un mystère pour vous. De tou- 
te manière ce n'est pas votre problème, vous devez suivre 
les ordres du commandement suprême sans en chercher les 
motifs. Vous êtes l'ultime sentinelle au front, vous 
devez interdire l'accès à la planète. Pour cela vous 
disposez d'un arsenal ultra-moderne de missiles ultra- 
sophistiqués. Ils sont munis d'une tête chercheuse qui 
fait que ces missiles font mouche à tout coup. Encore 
faut-il que l'ordre de tir soit donné au bon moment. 
C'est-à-dire quand un missile est disposé dans le silo de 
tir. L'ordre peut être alors validé par l'ordinateur cen- 
tral dirigeant l'organisation du poste de tir. Le missile 
peut alors partir et ne laisse aucune chance à l'adver- 
saire. 


Et l'homme dans tout cela ? Il est indispensable car 
la machine n'est pas habilitée à ordonner le tir. 


Pour donner cet ordre, pressez la touche d'espace- 
ment. Le jeu comporte trois niveaux de jeu modifiant la 
vitesse de déplacement du pas de tir, et la durée de mise 
en fonction des missiles. 


La séance de tir est limitée à la durée de votre 
tour de garde. 


Ne décevez pas les espoirs mis en vous. Défendez ar- 
demment votre planète. 


Structure du programme 


Lignes 20 à 170, présentation du jeu et initialisa- 
tions. 
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Lignes 180 à 220, dessin du sol de la planète et co- 
loration de l'écran. 


Lignes 230 à 250, dessin du ciel étoilé. 
Lignes 260 à 270, impression des messages de score. 


Lignes 280 à 380, double boucle imbriquée qui compte 
le temps et assure le déplacement du pas de tir. 


Ligne 320, teste si l'ordre de tir est donné. 
Ligne 350, autorise le déplacement des vaisseaux. 
Lignes 390 à 450, fin du jeu. 


Lignes 1000 à 1040 et 4000 à 4060, définition des ca- 
ractères spéciaux représentant les vaisseaux et le mis- 
sile. 


Lignes 2000 à 2130, sous-programme de tir. Interdit 
le tir si le missile n'est pas prêt (compteur G inférieur 
au temps F dépendant du niveau). 


Lignes 3000 à 3040 : déplacement des vaisseaux par 
rotation de la chaîne de caractères les contenant et 
ajout d'un nouveau vaisseau. 


SG REM HR RONNNONNNNNNNEX 

10 REN x MISSILE GALACTIQUE x 

LR ILIÉTEETTPESEPEDESE PELLE 

20 CLS:PAPER 3:1NK O:PRINTCHRS (20) ;CHR$(17) 
30 GOSUB 1000 

40 FOR 1=1 TO 15 

J0 A$=AS+CHRS CIOU+LNT (RND(1)#10) )+" * 

65 NEXT 


70 PLOT 2,6,1 

80 PLOT10,6, sSULE GALACTIQUE 

gÙ FLOT2,10, “QUEL ee CHOISISSEZ VOUS" 
AQU PLOSS, 12, “1:0EBU1A 

410 PLÔTS, 44, “at ENTRATNE- 

120 DEL 16," 3:CHAHP LON" 

130 GE: 

140 IF É 1" OR 548 9" THEN GOTO 130 
130 DX=VAL(E$)/1. 

160 F=3+VAL(ES) 

170 CLS 

180 PAPERO:INK6 

190 FOR 1=1 10 

e0Ù READ J,K 


sfT = 


210 POKE J,K 
o0 NEXI 1 


230 FOR I=1 T0 50 

240 PLOT RND(T)#36+1,RND (1220, "." 

250 NEXT I 

260 TP=S00:N=1:XC=10:YC=23:VT=3:6=0 
2/0 PLOT 1,25," TEMPuz" :PLOT 24,25, "SCORE: " 
280 REPEAI 

29U REPEAT 

300 C= LA 

310 PLOT XC,YC,* 

300 IF KEVSECAE (22) fHEN GOSUB 2000 

330 TP=TP-1:1P$=STRSCTP) :PLOTIT-LENCIPS),25,1F$ 
340 N=N+1:6:6+1 

350 IF N=15 THEN GOSUB 3000 

960 UNTIL XC)30 OR KC(4 OR (P=D 

370 de DX 

380 UNIIL TP=0 

390 POKE 48140,INT(RND(1)x6+1) 

400 PLOT 3,10, PARTIE TERMINEE" 

410 PLOT 3,12, "VOULEZ VOUS REJOUER?(0/N)" 
415 PRINTCHR# (20) ;CHR#(17) 

400 GEI E$ 

430 1F E$="0” THEN RUN 

440 IF E$="N" THEN END 

450 GOTO04S0 

49U REM x Def céracieres speciaux * 

1000 FOR 146880 TO 4498: 

1010 READ J 

1020 POKEI,J 

1030 NEXT I 

1040 RETURN 

1990 REN * TI 

nt GXF THEN RETURN 


20 cu SCRNCXC+3,YT) 


2030 6=0 
2040 1F SN)11Ù OR SN(100 THEN RETURN 

2050 FOR I=1 T0 YC-Yi 

2060 PLOTXC+3, YC-1-1, "p" 

20/0 PLOTXC+3,YC-I," * 

2080 NEXT I 

2090 EXPLODE 

2400 PLOIXC+3,YT-1," “ 

5410 AS-LEF SAS, XÉ-1)+" “+#RIGHTS(A$,30-XC) 
2420 SC=SC+SN-95:PLOT30, 25, STR$ (SC) 

5430 RETURN 

2990 REM # Depl cible # 


3000 N=0 
nn PNG 

3020 dt D AAA ER 
3030 PLOT4,YT,A$ 
3040 RE TA 
4000 DATAU, 32,16,40,31,40,16,32,60,16,56,95,56,16,60,0 
4010 DATA 56,32, 34,59, 30,15,28,0,12,26,55,26,55, 26, 12,0 
4b20 DATA 20,28,8,28, 43,8,83,20,48,92,20,43, 00,32, 48,0 
4030 DATA 42,8,08,62,28,8,42,0,18,63,45,63,33,18,33,18 
4040 DATA 32,40,58,30, 53,30, 12,56,20,63,43,63, 3,13, 9,37 
4050 DATA 11,1887,1897,0,0,0, 30, 32, 48,56, 14 
4060 DATA 8,8,8,8,8,8,28,42 
4070 DATA 48160,2,49000,17,49040,17,49080,17,49041,3,48961,5 


ce US. es 


3.4 BRACONNIER 


"Alors ! le gibier ?" “Beaucoup, beaucoup trop, les 
lièvres sont très prolifiques cette année, et si cela 
continue, les cultures risquent d'être endommagées" “"Dom- 
mage que la chasse ne soit pas encore ouverte”. 


Voilà des propos que vous avez surpris ce matin, 
alors que vous sirotiez votre pastis à la terrasse du ca- 
fé. Ils vous reviennent à l'esprit par cette soirée de 
pleine lune, et incitent vos instincts de braconnier à 
remonter en surface, la science des collets est un art 
que vous dominez depuis fort longtemps. Le matériel ras- 
semblé, la gibecière en bandoulière, vous vous lancez en 
rase campagne en quête de ces rongeurs destructeurs. Vo- 
tre but : poser le plus de pièges possibles. Votre tacti- 
que : repérer les traces de ces rongeurs, et poser un 
nombre de collets proportionnel à la densité des traces. 
Attention bien sûr de ne pas mettre les pieds dans un des 
collets déjà posés. Prenez garde aussi à regagner votre 
domicile dans les délais imposés par votre femme, celle- 
ci étant très jalouse, son courroux pourra être grand 
lorsque vous reviendrez. 


Vous pourrez vous déplacer en utilisant les quatre 
flèches. Les traces citées seront symbolisées par un 
chiffre, si vous passez sur ce chiffre vous poserez un à 
un autant de pièges que le chiffre indiqué. Les collets 
posés seront indiqués par des "*". Un "ZAP" vous indique- 
ra le moment où il vous faudra rejoindre votre véhicule, 
regagnez-le dans les plus brefs délais. Surtout, ne re- 
passez pas sur vos pièges. Bon braconnage. 

Structure du programme : 

Lignes 9 à 95, initialisations. 

Lignes 99 à 200, dépôt des pièges. 

Lignes 209 à 370, retour. 

Lignes 399 à 470, sortie chiffres. 

Lignes 499 à 530, affichage pièges. 


Lignes 599 à 710, déplacement braconnier. 
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ÿ REN KEKERERERREREX 

A0 REH # BRACONRIER * 

AL REH HHEXHKEEXEEEEX 

15 REH # Initialisations * 
20 CES 

30 PAPERS :IK6 

40 PLUTIO 5, PIÈGES POSES=" 
au FOR 1=1 10 à 


7Ù A L 
80 NEXT 


gs NEXT I 

87 DATA 46360,0 
88 DATA 469%d,1 
90 D=1 :T=0 :5= 
92 GOSUB 465 
95 X=a0 :Y=13 
99 REH x Re des pieges * 
tUû REPEA 


2 YE=Y 
IF hs) =CHR$(G) AND M$C=CHRS (110) THEN ON AGC(M$)-7 GOSUB6O0, 630 


4 IF KAUET)(.1 IHEN-GOSUB 400 

140 IF SCRNX,Y))48 AND SERNIX,Y)CG4 THEN GOoub 45 
190 ir SCKNCX, Yi=42 1HEN EXPLODE :0= -Ù 

155 G0SUB 500 

460 UNTIL 0-0 ’. 1=1000 

470 PING :V=0 :1=Ù 

180 XC= ENT C3 ND (1) +3 SYCSINT C22KRND ET) )+1 
ue IF SCRNCXC,YC)()32 THEN G010 180 

e0Ù PLOTXC, YC,163 

c09 REM x Retour x 

210 REPEAT 

Bd A X :YE=Y 

230 NS=KEYS 

un pe rail AND HM${=CHR$(11) THEN ON ASC(M#)-7 GOSUB 600,630 


280 f "CRACK, Yi=42 THEN EXPLODE :D=0 
260 1F X=XC AND Y=YC THEN V=1 

270 PLOTX 

Hi ae Ÿ, 192 


1+1 
si nu 1=300 OR D=0 OR V=1 
CRE =0 THEN PRINT" VOUS ETES TOMBES DANS VOTRE FIEGE":PRINI"C'ES 


330 1F V=1 THEN PRINT"BRAUO VOUS ETES DANS LES TEMPS” 

340 IF D(20 AND VC>1 THEN PRINT"GARE AU Ans À PATISSERIE" 
350 PRINT :INPUT"VOULEZ VOUS REJOUER (O/N)": 

me IF R$="0" THEN RUN 


ÿ END 
Er REN x Sortie chiffres “ 
400 XC=INTO3SARND 1) }+3 
410 YC=INT(22#RND (1) )#1 
420 PLOTXC, YC,PXRND(1+49 
430 RETURN 
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44ÿ REN # USE nbr pieges * 
450 5=6+SCRNX, Y)-48 

à60 1R= IR4SCRNUX, Y)-48 

485 PLOTA4,25,6TR$(5) 

470 RETURN 


499 RE x Affichage pieges * 

900 PLOTXE,YE," * 

910 1F TR(?0 THEN PLOIXE,YE, "#" 

j1s os OR YC)YE) AND IRC)D THEN FR=TR-1 
J30 RETURR 

599 REN x Deplacement braconnier * 

600 X=X-1 

&10 IF XU1 THEN X=X+1 

60 RE 


630 X=X+1 

éaU 1F Xv36 THEN X=X-1 
650 RETURN 

660 Y=Y+1 

70 1F er THEN Y=Y-1 


100 1F vi IHEN Y=Y+1 
/10 RETURN 
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CHAPITRE 4 


Jeux 
d'action 


4.1 ASTÉROÏDES 


Une expédition d'exploration scientifique est en rou- 
te vers Jupiter. Vous êtes le commandant du vaisseau spa- 
tial. Hélas vous devez traverser la barrière d'astéroïdes 
après avoir dépassé l'orbite de Mars. Cela peut être 
périlleux et demande toute l'expérience du vétéran de 
l'espace que vous êtes. Heureusement, un dispositif révo- 
lutionnaire équipe votre vaisseau. Un désintégrateur est 
fixé à l'avant de celui-ci et pulvérise les astéroïdes 
arrivant devant vous. Mieux encore, la matière consti- 
tuant ces blocs de rochers est récupérée et utilisée com- 
me carburant. Pour poursuivre votre route vous devez donc 
détruire un maximum d'astéroïdes pour emplir vos réser- 
voirs. Mais des fusées ennemies patrouillent également 
dans cette portion du cosmos et votre désintégrateur est 
sans effet sur eux après trois salves de grande puissan- 
ce. Prenez donc garde à ne pas en rencontrer plus de deux 
sur votre route. 


Pour déplacer le vaisseau utilisez les flèches droite 
et gauche. 
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Structure 


Lignes 15 à 


Lignes 50 


du programme : 
45, présentation et initialisations. 


à 140, boucle principale, assurent : 


la création des astéroïdes et le scroll li- 
gne 60 


le comptage des astéroïdes touchés ligne 70 
le déplacement du vaisseau lignes 90 à 110 


le comptage et l'arrêt du jeu lignes 120 à 
140 


la création des fusées ennemies ligne 130. 


Lignes 150 à 210, assurent la fin du jeu et l'affi- 
chage des résultats. 


Lignes 1000 à 1060 et 3000, sous-programme assurant 
la redéfinition des caractères. 


Lignes 2000 à 2100, traitement de la collision avec 
les fusées ennemies. 


S-REM HR 

10 REH * ASTEROIDES x 

49 REM HHKKXER ONE ; 
45 CLS:PAPER4: INK3:PRINTCHR$ (17); CHR$ (20) 
20 PLOT ls *DETRULSEZ LES ASTERODES" 


40 XV=10:YV=0:TP=1000:V=3 


40 HT :WA1T100 


45 CLS:PAPE 
90 REPEAT 


60 PRINTSPC(RND(1)#18) "x" SPCCRND(1)#18)"%" 
70 IF SCRNCXU,YU+1)=42 THEN SC=S0+1:5H00T 
80 IF SCRN(XV,YV+1)=96 THEN GOT02000 

90 K$=KEYS 


100 XV= AU as AND XV:2)-(K$=CHR$(9) AND XV(37) 


ju PLOT 
120 


130 IF D .7 THEN PLOT RND(1)#37+1,RND(1)#24+2,96 


140 he 
150 PING 


1, PLUI2, 10, “VOUS AVEZ DETRULT “#S1R$(5C)+* ASTEROIDES" 
LVQULEZ VOUS REJOUER?" 
Us NH 7 : CHR (20) 


180 G 


190 IF eo" THEN_RUN 
200IF A$="N" THEN END 
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210 6010180 
1000 FOR I=1 TO 2 


1010 READ K 

1020 FOR J=0 TO 7 
1030 READ L 

1040 POKEK+J,L 
1050 NEXTJ, 1 

1060 RETURK 

2000 V=V-1 


2010 EXPLODE 
2020 FOR F =7 T0 O STEP-1 


205 TI 

2060 PLOTXV, YV,223 

2080 PLOTXV, YU41, 

ou SD Le THEN PLO12,8, VOTRE VAISSEAU À EXPLOSE" :60T0160 
3000 DATA 4640,91,31,31,10,14,4,4,4,46848,8,8,98,8,98,69,54,34 


4.2 CHAMPS DE FORCE 


Terra, an 3047, alors que l'expansion galactique bat 
son plein essor, alors que toutes les nations belligéran- 
tes ont déposé leurs armes, alors que “tout va pour le 
mieux dans le meilleur des mondes", votre planète, se 
trouve menacée par une force étrangère. Nul ne connaît 
son origine, mais son ultimatum est précis “la planète 
sera détruite dans 500 unités de temps”. Tous les grands 
de chaque nation se sont réunis. Leur décision : la des- 
truction de cette entité ennemie. Le moyen a été déter- 
miné par une entente de toutes les unités de recherche 
techniques, scientifiques et militaires : une charge doit 
être déposée au centre du champ de force. C'est dans le 
cadre de cette mission que vous pilotez actuellement la 
fusée interplanétaire transportant la charge. Vous devez 
dans une première étape rejoindre votre navette, puis à 
l'aide de la navette aller déposer la charge. Ces deux 
étapes sont primordiales, car la fusée serait détruite 
par le champ de force, alors que la navette plus puissan- 
te pourra y entrer et en ressortir facilement. Mais at- 
tention, l'ennemi n'est pas dupe, il essaiera de détruire 
la fusée, mais fuira la navette lorsque celle-ci sera en 
possession de la charge. Pour la plus grande réussite de 
votre mission, vous devez sortir du champ de force avant 
que la charge à retardement n'explose. Tous les espoirs 
de vos co-planétaires reposent sur vous ... Trois tenta- 
tives vous sont permises. 


s SÉ. = 


Le programme vous propose trois niveaux de jeu, la 
vitesse de déplacement du champ de force croît avec le 
niveau. Les touches du clavier utilisées sont les flèches 
pour les déplacements, la barre d'espacement pour le tir. 

Structure du programme : 

Lignes 10 à 54, présentation. 

Lignes 60 à 86, définition des caractères spéciaux. 

Lignes 89 à 104, choix du niveau de jeu. 


Lignes 109 à 240, initialisations. 


Lignes 299 à 390, première boucle, trajet terra-na- 
vette. 


Lignes 399 à 610, déplacement fusée. 
Lignes 699 à 750, destruction fusée. 


Lignes 799 à 860, deuxième boucle, trajet navette 
vers champ de force. 


Lignes 899 à 990, déplacement champ de force. 
Lignes 999 à 1130, fin, sortie du programme. 
Lignes 1199 à 1300, déplacement vaisseau. 

Lignes 1399 à 1455, dépôt de la charge. 

Lignes 1459 à 1510, explosion de la charge. 

Lignes 1599 à 1640, commentaires si partie gagnée. 


Lignes 1699 à 1810, poursuite de la navette par le 
champ de force. 
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LÉ £a CAARF DE FORCE 


2ù PAPERO :INK2 
es PRINTCHRS$(17) 
J0 CLS 


di PRINT:PRINT:PRINTSPC(10) "CHAMP DE FORCE" 
Je PRINI:PRINI:PRINISPC(7)"SAUVEZ VOTRE PLANETE" 
93 PRINT: nue Hs DEIRUISEZ L'ENNEML" 
J4 PRINT:PRI T 

60 REM x DATE CARACTERES x 

&2 FOR I=1 

64 READ K 

äé FOR J=0 TO 7 

68 READ L 

70 POKEK+J,L 

L His J 


19,99,19,1,0,0 
81 DATA SEE 13 63,63,45,63,64,12,0 
82 DA1A46872,0,32,60,47 ,60,3,0,0 
3 DATA46599,4,4,4,14,14,31,01,17 
*4 DATA46360,0,7,12,62,12,7,0,0 
85 DAfA463/6,0,56,12,31,19,56,0, 
86 DATA46344,17, TT SL 
VEAU x 


“ PRINT- NIVEAUX, DES DIFFICULTES" 
92 PRINT" 4:FA 

94 PRINI" 2: ROTENe 

96 PRINT" 3:FORT” 

98 INPUT"QUEL NIVEAU CHOISISSEZ VOUS": NIS 

100 IF ASCINIS)(49 OR ASCCNIS))51 THEN GOTO V8 
402 N1=VAL(NIS)+2 

404 PAPER4 

409 REM x INLIIALISATIONS x 

410 X=90 :Y=190 :FU=3 :XN=200 :Y==40 

420 XC=120 :YC=100 :R=20 :1E=0 

421 HIRES :PAPERO :INK3 

422 FOR 1=1 T0 100 

123 EURSET NT (Z208RND 11410, INT (190#RND (1) )+2,3 
124 FIL + 

425 CÜRA 

12 EE, 4 Mn 


130 CURSETXC, YC,3 
140 CLRCLER, 1 
. CURSETX, Y,3 
0 CHAR64,0,1 
W0 FOR 1=1 T0 3 
ed CURSETXN+(I-2)#6,YN,3 


190 CHAR96+I,0,1 
NEXT 1 


210 FOR I=1 [0 à 

220 POKE49042+2%], 64 

230 ar ; 

240 XF=49046 

299 AL x PREMIERE BOUCLE x 

300 M$=KEY$ 

310 IF M$>=CHR$(8) AND M$=CHR$(11) THEN GOSUB 400 


de0 EC=(X-XC)x(X-XC)+CY-YC)x(Y-YC) 
330 EN=CX-XN)#(X-XN)+CY-YN)XCY-YN) 
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340 ÎF ECCRXR THEN GOSUB 700 

390 IF EN(G4 THEN GOSUB 800 

360 IF RND(T)CNI/4 THEN GOSUB 900 
370 TE=TE+1 

375 GOSUB 1740 

380 IF TE=500 THEN G010 1000 

382 FOR I=1 T0 3 

384 CURSETXN+(I-2)%6, YN,3 

386 “rh As 

388 ss 


390 G 300 
399 RH LS  DEPLACEMENT FUSEE * 
400 XE=X :YE=Y 


410 ON ASÈ HS )-7 GOSUBS500, 530, 560, 590 
420 CURSETXE, YE,0 

430 CHAR27 0,0 

440 CURSETX, Ÿ, 3 

450 CHARCG, 0,1 

460 RETURN 


300 X=X-4 
910 IF X(20 THEN X=X+4 
919 CG=35 


Je0 RETURN 

930 X=X+4 

940 1F X2220 THEN X=X-4 
J4ÿ C6=37 


JJ0 das 
20 LE. 1F "480 THEN Y=Y-4 
5 RETURN 
Ho LE LE Ya THEN Y=Y+4 


810 RETURN | 
499 REM x FUSEE DANS CHAMP x 
700 EXPLODE 

710 XE=X :YE=Y 

720 X=30 :Y=19% 

730 FU=FU-1 

740 IF FU=0 THEN GOTO 1000 
745 POKEXF,20 

747 XF=XF-2 


730 G0TO 420 
799 REN x DEUXIEME BOUCLE * 
800 TR=1000 :BOUM=0 :DEST=0 


802 CHAR127,0,0 
803 X=XN :Y=YN 
806 XF=XF+2 

807 POKEXF,64 
809 H$=KEY$ 

810 IF H$?=CHRS( 
820 IF H$=CHR$(3 
830 E=TE+1 

835 TR=TR-1 

837 GOSUB 1740 
840 IF TE=300 THEN GOTO 1000 
845 IF TR=0 THEN GOTO 1460 


850 IF RND(1)(N1/10 THEN GOSUB 1700 
860 GOTO 809 


; o H$(=CHR$(11) THEN GOSUB 1200 


) 
) THEN GOSUB 1400 
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899 REN x DEPLACEMENT CERCLE FUSEE * 
900 DX=5GNCX-XC)# INT (1D#RND (1) ) 

910 DY=SGN(Y-YC)#INT (ADKRND (1) ) 

920 1F XC+DX(40 OR XC+DX)200 THEN DX=0 
930 IF YC+DY(40 OR YC+DY)160 THEN DY=0 
er ALT 1YC,3 


al R= ag ut RE 


9 
973 CURSETXC, YC,3 
980 CIRCLER,1 
RETURN 
999 nr x FIN DU JEU x 
1000 P=1 


1010 De I=1 T0 10 
1020 PAPERP 
1030 ïF P=1 THEN P=3 :G0TO 1050 


1040 P=1 

1050 EXPLODE 

1060 NEXT I 

9602-CURSE HNT (220kRND4 12 +140, INT CI90#RND (1+2,3 
1070 PAPERD 

1080 PRINT"MISSION ECHOUEE” 

1090 PRINT'VOTRE PLANETE EST DETRUITE 

1095 FOR 1=49000 1049080 STEP40 

10% Rs 16 

1097 MEXT I 

4100 WAIT 100 

1110 INPUT" VOULEZ VOUS RECOMHENCER (O/N)";R$ 
1120 Ch R$="0" THEN RUN 


1130 
1199 REA * date VAISSEAU * 
1200 XE=X :YE=Y 
on AGE M) -7 7 G0SUB500,530, 560, 570 
1230 CURSETXE+(I- ne, YE,Ù 
1240 CHAR96+I,0,0 
4250 NEXT I 
4960 FOR I=1 TO 3 
1270 CURSETX+(I-2)%6,Y,0 
1280 CHAR96+I,0,1 
1290 NEXT I 
1300 RETURN 
1399 REH *x DEPOT BOMBE x 
1400 IF BOUM=1 THEN GOTO 1450 
1410 ZAP 
pie TR=15 
1420 BOUH=1 
1430 EC=(-XC)x(X-XC)+CY-YC)#(Y-YC) 
1440 IF-ELCR#R/4 THEN DEST=1 
1450 IF ECCR4R THEN TE=TE-50 
1453 RETURN 
1459 REM *x MISE À FEU * 
1460 EXPLODE 
1470 EC=(X-XC)#(X-XC)+(YYC)x(Y-YC) 
1475 IF DEST=1 THEN GOT0 1600 
re IF AN THEN GOTO 1000 
490 sYN=Y 
15300 nu “30 :Y=190 
1505 POKEXF, 20 
1506 XF=XF-2 
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1507 er 

1510 GOTO 150 

1599 REN x PARTIE GAGNEE x 
1600 CURSETXC, YC,3 


2 Fa did 13 

4620 RRINT:PRINT"VOTRE PLANEE EST SAUVEE* 

1692 WAIT200 

rs PRINT:PRINT"IL OUS RESTAIT UNE MARGE DE:°;500-TE 


WAIT aU0 
ét PRINT:PRINT'LA POPULATION VOUS FELICITE" 
1635, PRINT 
14640 GOTO 1110 
699 REN x DEPLACEMENT CERCLE NAV x 
1700 DA=GGN(X-XC)#INT (TOKRND (1) ) 
4710 DY=SGNCY-YC)#INTIUXRND (1 )) 
1700 IF BOUM=0 THEN DX=-DX :DY=-DY 
1730 GOTO 920 
1740 T=300-TE 
1750 T(1)=INT(T/100)+48 
1760 T(2)=INT(T/10)-10K(T(1)-48)+48 
1770 T(3)=T-10#(1(2)-48)-100*(1(1)-48)+48 
1780 FOR [=1 10 3 
1790 POKE49070+I,T(I? 
1800 NEXT I 


1810 RETURN 


4.3 DÉMINAGE 


La guerre approche de sa fin. Pour exterminer l'un 
des derniers bastions ennemis, une colonne de chars d'as- 
saut doit emprunter la vallée d'Abdel-Kir. Cette vallée 
étant un lieu de passage stratégique, l'ennemi y a enter- 
ré, dans le sable, des mines. Ces mines insensibles au 
poids d'un matériel léger sont un obstacle certain pour 
des véhicules lourds. L'état-major a donc décidé d'en- 
voyer sur les lieux des unités du corps du génie. Votre 
rôle en tant qu'artificier sera de désarmorcer les explo- 
sifs. Mais cette tâche ne sera pas facile, en effet des 
chars ennemis surveillent ce champ de mines et tenteront 
de vous anéantir. Votre seule chance de leur échapper est 
de regagner votre point de départ, ce qui vous ralentira 
dans votre tâche. Non contents de vous retarder, les en- 
nemis redéposeront des mines en regagnant leurs posi- 
tions. L'impératif temps est très important, il faut que 
la colonne alliée puisse passer avant que l'ennemi ne dé- 
truise tous les documents compromettants. 


Vous pourrez déplacer votre véhicule grâce aux quatre 
flèches. Il vous suffira de passer sur la bombe pour la 
désamorcer. Le temps qui vous est imparti est limité. 


m'SùS 


Maintenant ne perdez plus une minute, au travail. 
Structure du programme : 

Lignes 9 à 40, mise en place du décor. 

Lignes 50 à 86, définitions des caractères spéciaux. 
Lignes 100 à 160, pose des mines. 

Lignes 170 à 190, initialisations. 

Lignes 200 à 290, campagne de déminage. 

Lignes 400 à 610, déplacement du véhicule du génie. 


Lignes 700 à 830, poursuite du véhicule par char en- 
nemi. 


Lignes 1000 à 1080, retour char ennemi sur ses posi- 
tions. 


Lignes 1200 à 1230, affichage temps. 
Lignes 1500 à 1540, explosion char sur mine. 


Lignes 1700 à 1730, pose des mines lors du retour du 
char. 


QREN KXKXHAKKENEX 
10 REM *x DEMINAGE * 
11 REM KKKKKHKENEEX 


29 ELS 
7 TEXT:PAPER3:INKO 
Fr DETTOrS 


70 POKEK+J,L 
73 NEXT J 


80 NEXT I | 
82 DATA 46840,0,63,33,33,45,63,63, 18 
84 DATA 48592,01,14,31,14,01,0,0,0 
86 DATA 46848, 30,90,63,63,18,0,0,0 
400 TEXT 


120 FOR 1=1 T0 20 

130 X=INT (34#RND (1) +3) 

440 Y=INT (20*RND(1)+2) 

445 IF SCRN(X,Y)=64 THEN 1=1-1 
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150 PLOTX, Ÿ, 64 

NEXT I 

170 HI=20 :TE=1000 

HE que 35 264 2GOSUB 1525 
OT 26,"T" :60SUB 1210 


180 Je he se 
190. PLOTX, Y,95 


200 REPEAT 
Er Dee 1200 
520 IF H$2=CHR$(8) AND M$ Tu THEN GOSUB 400 
230 IF nie “4 La GOSUB 
290 UNTIL N R TE=0 
260 INPUT” VOULEZ Mrs REJOUER (O/N)"3R$ 


2/0 IF R$="0" THEN 
280 PRINT"FIN" 
290 END 


400 XE=X :YE=Y 

410 ON ASC(H$)-7 GOSUBS00, 530, 560,590 
He Le NE Ve »V)=64 THEN PING:60SÛ8 1520 
440 PLOTX,Ÿ,95 

450 Ab 


S00 X=X-1 
510 Fr fe THEN X=X+1 
Je0 _. ré 


990 X=X 
940 1F X)36 THEN X=X-1 
J90 RETURN 


360 Y=Y+1 

9/0 1F Y)23 THEN Y=Y-1 
380 Het 

390 Y=Y-1 

600 IF Y(2 THEN Y=Y#1 
610 RETURN 

me KC= 0 :YC=23 :D=1 


711 60SUB 1200 

720 H$=KEY$ 

730 XD=XC :YD=YC 

740 IF N$)=CHR$(B) AND H$(=CHR$(11) THEN GOSUB 400 
745 IF QU S THEN 6070 720 


750 IF D=1 THEN 6010 810 

760 YC=INT(3#RND (1) )ASGNCY-YC)+YC 
770 IF XC=X OR YC=Y THEN GOTO 1000 
780 PLOTXD, YD,* 

785 IF SCA, YC)=64 THEN GOSUB 1500 
790 PLOTXC, YC,96 

800 IF YU 208 YC()23 THEN GOTO 710 
805 RETURN 
810 XC=INT(2KRND(1)+1)#SGN(X-XC)+XC 
820 IF YC=Y THEN G0TO 1000 
830 G0TO 780 

1000 IF X=36 AND Y=2 THEN G0TO 1032 
41005 WAIT10 


4010 EXPLODE 

1020 PLOTX,Ÿ,” “ 
4026 WAITS 

1030 X=36 ds 2 
4032 PLOTX,Ÿ,"_ 
1035 PLOTXE, fc; : 


sé = 


1040 XC=INT(2xRND(1)+1)XSGN(2-XC)+XC 
1050 YC=INT(3#RND (1) )#SGN(23-YC)+YC 
1058 GOSUB 1200 

1060 1F SCRN(XC,YC)=64 THEN GOSUB 1500 
1063 PLOTXD, YD, ” 

1085 IF RAD . THEN GOSUB 1700 

1066 PLOTXC,Y 


1067 XD=XC anus 
1070 IF XC{)2 OR YC()23 THEN GOTO 1040 
G0TO EE 


1200 TE=TE-1 
1205 IF TE-INL(TE/10)#10=9 THEN PLOT26,95," 
4210 PLOT26,25,STR$(TE) 

1920 IF TE=0 THEN GOTO 260 

1230 ETURN 

1500 EXPLODE 

49505 PLOTXC,YC," 

1510 XC=2 :YC=23 

4520 MI=NI-1 

1525 1F NI=9 THEN PLOT6,25," 

1530 PLOTS,25,SR$(HI) 

1540 RETURN 

4700 IF XD(3 OR XD)35 OR YD(3 OR YD)20 THEN G0TO. 1730 
1705 PLOTXD, YD,64 

1710 NI=HI41 

4715 ZAP 

1720 *OSUB 1530 

1730 RETURN 


4.4 ENVAHISSEURS 


Ca y est, cela est arrivé ! Les extraterrestres atta- 
quent. Ils veulent débarquer en grand nombre sur la ter- 
re. Il y en a de six espèces différentes plus étranges 
et monstrueuses les unes que les autres. Leur hostilité 
ne fait aucun doute. Que faire pour éviter cette invasion 
terrible ? Il faut les exterminer tous. Aucun ne doit 
rester. Mais ils se défendent ardemment à l'aide de bom- 
bes qu'ils envoient en grappes. Vous avez trois canons- 
laser à votre disposition. Cependant ces arms sont assez 
lentes à manoeuvrer et la durée entre chaque tir est as- 
sez longue. D'autre part vous ne pouvez tirer qu'un seul 
coup à la fois. Il faut donc viser juste et ne pas rater 
un seul envahisseur. Pour les aider, ils disposent d'un 
vaisseau spatial qui patrouille sporadiquement dans le 
ciel. Détruisez-le à tout prix car il contient 8 envahis- 
seurs ce qui augmentera de 100 votre total. Néanmoins, . 
les envahisseurs jouent sur le nombre, et si vous arrivez 
à détruire une escouade complète une autre prend la relè- 
ve immédiatement. Sauvez votre planète natale de la mena- 
ce cosmique ! Pour déplacer le canon utilisez les touches 
fléchées droite et gauche, pour tirer la barre d'espace- 
ment. 
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Structure du programme : 


Lignes 300 à 500, boucle principale assurant le 
déplacement des envahisseurs horizontalement et verti- 
calement ainsi que la détection de l'arrivée au sol des 
envahisseurs. 


Le sous-programme 1000 redéfinit tous les caractères 
représentant les envahisseurs. 


Le sous-programme 2000 déplace le canon. 


Le sous-programme 3000 comptabilise les envahisseurs 
abattus. 


Le sous-programme 4000 visualise les envahisseurs sur 
l'écran. 


Le sous-programme 5000 assure la fin du jeu. 


Le sous-programme 6000 comptabilise les canons dé- 
truits. 


Le sous-programme 7000 effectue la présentation du 
jeu. 


Le sous-programme 8000 déplace le projectile. 


0 KP He : du principal * 


320 
ne RÉPEAT 
350 REPERT 


360 K$=KEYS 
37/0 IF(K$(CHRS(TD)ANDK$)CHR$(7)) THEN GOSUB 200Û 
380 1F SCRN(XC+1,YC-12=101 THEN GOSUB 6000 
390 1F KS=CHRS (32) AND N3)2 1HEN ZAP:60SUB >000 
399 IF S=1 THEN GOSUB 2400 
400 N=N+T:NT=LNT CCN#1)/2) ENIENI+T 
410 TP=1P#1:PLOTXC,ŸC,* be ” 
412 PLOTXCNT), YEN), 
414 YIND)=Y(NT)+0,5 
416 IF YENT)=24 THEN X(NT)=INTORND(T)#TT+XE# 1) 2 YNT)=YERNEXS 
418 PLOTX(NT),Y(NT),‘e 
420 UNTIL N=15 
409 pe ae 
430 X 
440 TE ES OR XE)22 THEN NX=-NX 
450 G0SUB4000 
459 1F 5C)450 THEN M2 
460 UNTILH=H? 
470 YE=VE+HY:G=FRE("") 
480 GOSUB4000 
490 IF S=0 THEN IF RAD(1)(0.5 THEN 5=1:X5=2 
500 UNTIL YE=YC-24NE 
310 GOTO 5000 
300 END 
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990 REN * Definition des caracteres * 
4000 FOR 1=46976 TO 47023 

1020 RERBI 

1030 NEXT I 

1040 FOR 1=46856 TO 46895 

1050 READJ 


1060 POKEI,J 
1070 NEXTI 


1080 RETURN 

1990 REM * Depl canon * 

2000 REX 

2010 ON ASC(K$)-7 GOSUB 2200,2300 
2020 RETURN 


2090 REM * Tir laser * 
a IF T=1 THEN RETURN 


2120 Xe \C+1 


RETURN 
220 re ct THEN XC=XC-1:PLOTXC, YC," bc ” 


5300 Te, KE 28 THEN XC=XC+1:PLOTXC, VC," bc * 

2310 RETURN 

2990 REM * Depl soucou 

2400 IFXS{38THENXS=XS+ SaPLOTXS, VS, “d” sPLOTKS-1, VS,” “ELSEPLOTXS,YS," “:6=0 
2405 SOUND1,1500,8 

2410 RETURN 

2990 REM * Effacement envahisseurs * 

3000 SHOÛT 

3002 1F SR=100 THEN SC=SC+100:NS=NS+1:PLOTXS,YS," “:5=0:60103035 
9003 IF SR=10 VHEN Y(N)=YE+NEX2:X(N)=INT (RND(1)#10+XE) :RETURN 
3005 W=(YL- reeu =XL-XE:22=12-XL+XE 

3007 PLOTXL, 

3010 MALE as, Z1)+" “#RIGHTS(A$(W),22)* 

3020 B(W)=B(W)-1 

3030 5C=5C+13 

3031 NE=NE +1 

3032 REPEAT 

9033 NE=NE-1 

3034 UNTILB(NE){)0 OR NE=0 

3035 IF NE=0 THEN NE=6:60103037 

9037 SC$=STR$(SC) :PLOT20,0,SC$:PLO%XL,YL," “:YL=24 

3040 1F(B(1)+8(2)+B(3)+8(4)+B(5)+B(6))()OTHEN GOSUB4000:T=0:RETURN 
3050 RESTORE 

3060 FOR 1=1 [0 88 

3070 READ J 


3070 601045 
3990 REA x us DES ENVAHISGEURS x 
4000 FOR I=1 I0 N 

4010 PLOT XE, TE, A$(1) 

4020 PLOT XE,YE-1+241,8$ 

4030 NEXT I:G=FRE("") 

4040 RETURN 

4990 REN x fa D JEU x 

S0U0 EXPLO 

sh à MATE 


EE PRINT:PRINT:PRINI:PRINTLES ENVAHISSEURS ONT ATTERRI! 111" 

9040 PRINT:PRINI:PRINT VOUS EN AVEZ MPECHES “:(SC-NS#100)/13; "DE SE POSER” 
3045 PRINT:PRINT:PRINTEN “:1P;"QUANIUM DE TEMPS" 

9048 PRINT :PRINT:PRINT'SLORE: "603 POINTS" 
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5050 PRINT:PRINT:PRINI"VOULEZ VÜUS SUBIR UNE NOUVELLE ATTAQUE ?(0/N)" 
JO ARE 
o060 INPUT 
S070 {F L= 0 Ÿ- EN RUN 
5080 1F C$="N" HN RELEAGE : END 
5090 G0T0 5060 
5990 REM x Canon detruit * 
en NC=NC-1:EXPLODE :6=FRE("") 
010 IF NC=0 THEN CLS:GO0SUB SO4U:END 

aU20 PLOT4+(NC)#3,95," :PLOTXC, YC-1," 

6030 PLO1 XC,YC, 
éü4G XC=1Ù: PLOTXC, YC,* bc“:PLOTXC+#1,YC-1," * 
6050 RETURN 

6990 REM *x Presentation * 
7000 CLS:PAPER1:INK3 
1010 FRINT:FRINTEHRS (AU) :CHR#(17) 
2000 PRINT:PRINISPCES)CHA# (27) ; "bp Ë rstu P Ë rstu”, 
7030 PRINT:PRINI"LES ENVAHISSEURS VEULENT ATIERRIR" 
7040 PRINC:PRINT"SAUVEZ LA PLANETE AVEC LE CANON LASER” 
7050 PRINI:PRINTSPC(10)CHR#(27);"Ep qrstu p° 
060 PRINT:PRINISPC(12)CHR$ (27) Fq r s tu” 
1070 PRINT:PRINTSPC(14)CHR$(27)"Bp q r” 
ue PRINT :PRINTSPC(16)CHR$ (27) "Ds" 
1090 FRINT:WA1T300 
7100 RETURN 
8000 DATA 33,45,63,12,30,49,33,91, 12,18, 51,63,45,12,18,91 
8010 DATA 10, 83,53, 63, 48,60,36,54,12,18, 82,62, 42,42,42,48 
8020 DAIA 40,20,40,63,45,63,18,43,36, rh6, 63,53, 31,30,18,33 
8030 DATA 0, 8, 8,28,8, 8, 28, 54, 16,871831, 1,21 
8040 DATA 0, 16, 46,48, 3, éûé0, 20,0,4,46 53, 44: 4,0,0,0,14,2,4,8,4,0,4 
BU5D DATA 4ë0B1, À "48961 ,2, 49000, e0,49040, 20, 49080, 20, 48041, é 
700U YL=YC-1:N4=0 
g010 XL=XC+1 
9020 nl 

9030 SR=SCRNCXL, YL-1) 
HAE TU AND SR>111)0R SR=t00 OR SR=101 THEN GOSUB 3000:U=1 

5 L 
ÿ06Ù PLOTAL, Le a2PLOIXL,YL+1," * 
su/0 UNTLLYL 2 ÜR U=1 
Y080 PLOTKXL,1L,* “sUzÛ 
9090 RETURN 


o 


4.5 LABYRINTHE 


Une expérience scientifique vous fait remonter dans 
le temps. Vous revêtez les traits et le corps d'une per- 
sonne de l'époque. La machine vous a emmené en Crète an- 
tique et vous êtes Thésée pour quelques heures. Hélas, 
Thésée est très courageux et a accepté une mission suici- 
de. Il doit faire périr le Minotaure qui hante le laby- 
rinthe construit par Dédale. Vous ne pouvez refuser car 
vous ne pouvez pas intervenir sur le cours du temps, et 
la légende raconte que Thésée est entré dans le labyrin- 
the... Soyez aussi courageux que Thésée et affrontez le 
monstre. Heureusement, vous bénéficiez de l'aide d'Ariane 
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qui vous a donné une bobine de fil que vous déroulerez 
derrière vous et qui vous permettra de retrouver rapide- 
ment la sortie du labyrinthe. Bonne chasse ! Gare au Mi- 
notaure qui est très rapide. 


Pour vous déplacer à l'intérieur du labyrinthe, uti- 
lisez les quatre touches fléchées. Le jeu comporte trois 
niveaux selon la taille du labyrinthe, la densité des 
murs. Seul le niveau 1 permet de voir les murs. Si le la- 
byrinthe vous semble sans sortie, ou pour vous arrêter, 
tapez [F] pour avoir la solution. 


Structure du programme : 


Lignes 20 à 120, présentation du jeu, choix du niveau 
de jeu. 


Lignes 130 à 380, création du labyrinthe. 
Lignes 400 à 500, déplacement dans le labyrinthe. 


« 


Lignes 510 à 570, initialisation de la deuxième phase 
du jeu si le test ligne 520 est faux. 


Lignes 1000 à 1040 et lignes 5000 et 5010, redéfini- 
tion des caractères. 


Lignes 2000 à 2340, sous-programme assurant les dé- 
placements. 


Lignes 3000 à 3040, tracé du labyrinthe complet (ni- 
veau 1). 


Lignes 3500 à 3580, tracé des limites extérieures du 
labyrinthe (niveau 2 et 3). 


Lignes 4000 à 4110, déplacement du minotaure -— sa 


stratégie est de minimiser la distance entre lui et Thé- 
sée. 
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TOTREM HHHENNNNNERX 

45 REM # LABYRINTHE 

14 REM #XK#XHXERKERKE 

00 DIH L(20,20) 

30 GOSUB 1000 

40 CLS:PAPERE: INK S 

JÛ PRINT:PRINT: FRINTSPC(3)* ### LE LABYRINIHE DE MINOS xxx" 

60 PRINT:RINT:PRINT" VOUS DEVEZ OCCIK LE MINOTAURE AU FOND OÙ LABYRINTHE" 

70 PRINT:PRINI:FRINT"ATTENTION AUX PIEGES!" 
EL D MARNE! niveau desirez vous?(1,9,3)" 

Le di 4" GR A$)°3" THEN 6010 90 

120 PRINT: TE ‘âttendez un instant” 

125 KE“ Limites du labyrinthe * 

130 N=10+5*(4-1) 

10 FOR I=1 [ü N 

150 L(I,1)=1 

té L(L10i=1 

470 NEXTI 

180 FOR 1=2 T0 9 

18û L(1,1)=1 

200 L(N,1)=1 

210 NEXT 1 

2a0 REM # Creation du labyrinthe # 

230 Z=0.18#5GR (A) 

DR a : Û nn F -1 

ot LL Ji ALT J/75) 

270 NEX 

280 ‘ * “osition des pieges * 

29Ù W=A 

300 FOR 1=1 T0 4 

310 LIN CRND(1)#7+42), INT (RND(1)#7/+2))=2 


320 NEXT 
9330 X= (l U FRERE YO=Y:PH=1:F=94 


gb LiX 
350 XS= il 1 RUPMEUAES! 
g51 FOR {=1 10 3 


392 L(XS-1,YS-2+1)=0 

dog LX#1, ds -2+1)=0 

394 NEXT 1 

360 L(XS,Y5)=0:CLS:PAPER4: INK 

370 [+ A=1 THEN GOSUB 3000 ELSE GOSUB 3500 
380 PLOT 3,3,"TEMPS:":PLOIXS+5,YS+8,96 

Sn RE REM A EE Exploration du ne 


405 Je NS THEN GOTO 

410 IF A$(CHRS(B) OR A) ARS 41) THEN GOTO 470 
420 ON ASC(A$)-7 GOSUB 2000,2100,2200,2300 

430 IF LCX,Y)=2 THEN EXPLODE :60T0590 

440 PLOTX+S,1+6,F 

450 IF X=XS AND Y=YS AND PH=1 THEN G0TOS20 
460 Ir X=1 AND Y=YD AND PH=2 THEN GOTO 600 

470 1P=TP+#1 

480 PLOT9,3,STR$(TP) 

490 IF PH=2 THEN GOSUB 4000 


920 1FRND(1)(0.STHENPLOT2,21,°Le minotaure est mort ,vous avez gagne” :6010610 
530 PLOT2,21,"Le minotaure est blesse, enfuyez-vous" 


sé" 


J40 PLO12,23, "avant qu'il ne vous ratrappe” 

J00 TH=TF:F=95 

560 PH=2:XN=XS:YH=YS 

J/D G0TO 400 

J60 REH x Fin * 

390 PLOT2,23, "Vous etes tombe dans un piege”:60T0610 
600 PLOT2,23, "Vous avez echappe au minotaure,bravo” 
&10 GOSUE 3000 

620 PLOT2,25, "VOULEZ VOUS AFFRONTER CE DEDALE A” 
bès ri 26, “NOUVEAU? (O/N) * 

630 GET À 

640 IF Nu ‘ THEN RUN 

650 IF A$=*N* THEN END 

660 GOT 630 

990 REN x Def caracteres x 

1000 FÜR 1=46832 TO 46855 

1010 READ J 

1020 POKE I,J 

1030 NEXT I 

1040 RETURN 

1990 REM * Deplacement * 

2000 IF X=1 THEN RETURN 

2010 IF L(X-1,Y)= se RETURN 

2020 PLOTX+5,Ÿ+8," 

GE ù I »Ÿ)=-1 


TURN 
5100 TE TA THEN RETURN 
2110 IF L(X+1,Y)=1 THEN RETURN 
2120 PLOTX+5,Y+8,"." 
2130 L(X,Y)=-1 
2140 X=X+1 
2190 RETURN 
2200 1F L(X,Y+1)=1 THEN RETURN 
2910 PLOTX#5,Y48,". 
2220 LIX,Ÿ)=-1 
2930 Y=Y#1 
2940 RETURN 
2300 1F Lite Y-1)=1 THEN RETURN 
ea fs J,Ÿ+8,". 


»Ÿ)= 


2330 Y=Y1 

2340 RETURN 

2990 REN * Trace complet * 

3000 FOR 1=1 ue A 

3010 FOR J=1 

3020 IF L(I, 14 THEN PLOTI+5,4+8,955 
3030 NEXTJ,1 


3040 RETURR 

3490 REH * ue du perimetre * 
3500 FOR 1=1 T0 

3210 PLOTI+5,9,255 

9520 PLOTI+45, 18,255 

3530 NEXTI 

3540 FOR 1=2 T0 9 

3550 IF L(1,1)=1 THEN PLOTÉ,1+8,255 
d560 IF LN,1)=1 THEN PLOTN+5,1+8,255 
39/0 NEXT I 

3580 RETURN 

3990 REM * Depl minotaure * 

4000 IF TP-TH(20 THEN RETURN 


68 "= 


4010 E=0 
4020 N= XH- tt SRE à) 
4030 ie ds SGNCY 


4040 E=E 

4050 IF ja 8 THEN GOTO 4070 

4060 IF LEXT,YT)=1 THEN GOTO 4020 
4065 PLOTXHS, YH+8, “ 
4070 XH=XT 

4080 YM=YT 

4090 PLOTXN+5,YM+8,224 
pr DEMNEXANEVH =YTHENPLOT2, 23,"Le minotaure vous a devore,desole":G60T0 610 


5000 DATA 12,12,62,45,44,14,18,19,12,12,31,45,13,98,22, 50 
3010 DATA 18,12,12,30,45,12,18,33 


4.6 PILOTE DE CHASSE 


“Alerte à toutes les unités ! Alerte à toutes les 
unités ! Des avions inconnus ont violé notre espace aé- 
rien. Identifiez-les, et abattez-les sans sommation, je 
répète. Identifiez-les, et abattez-les sans sommation”. 


Depuis le début des conflits qui opposent votre 
patrie à un pays expansionniste, les hautes instances mi- 
litaires ont décidé de surveiller de près certaines ins- 
tallations ultra-secrètes. Cette surveillance comprend 
bien évidemment une surveillance terrestre, mais aussi 
une surveillance aérienne. C'est dans le cadre de cette 
mission que vous êtes aujourd'hui sur l'un des chasseurs 
les plus rapides à ce jour. Et il s'avère que cette sur- 
veillance n'est pas inutile puisque l'ennemi a en effet 
décidé de passer à l'action. Pour le salut de votre pays, 
détruisez les appareils espions. 


Le programme proposé ici vous mettra dans la situa- 
tion citée plus haut. Une mire située au centre de l'é- 
cran vous permettra de viser les appareils ennemis. Vous 
amênerez ceux-ci au centre de la mire grâce à vos com- 
mandes de déplacement (les quatre flèches). La barre 
d'espacement vous permettra de faire feu. Votre but est 
d'abattre le plus d'appareils possibles. Attention à 
votre réserve de kérosène, et au nombre de missiles res- 
tants. Votre mérite sera comptabilisé par la boîte noire 
de votre appareil, un avion abattu incrémente votre score 
de 100 points, un avion sortant de votre champ de vue le 
décrémentera de 10 points. Bonne chasse. 
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Structure du programme : 

Lignes 9 à 45, présentation. 

Lignes 47 à 64, définition des caractères spéciaux. 
Lignes 68 à 99, choix du niveau. 

Lignes 99 à 172, initialisation. 

Lignes 173 à 280, boucle principale. 

Lignes 999 à 5060, déplacement mire. 

Lignes 999 à 6020, tir roquette. 

Lignes 6030 à 6110, destruction avion. 

Lignes 7000 à 7080, déplacement avion. 

Lignes 7999 à 8070, affichage indicateurs. 
Lignes 8099 à 8160, affichage kérosène. 
Lignes 8199 à 8295, affichage score. 

Lignes 8299 à 8340, affichage avions touchés. 


Lignes 8399 à 8430, affichage stock roquettes. 


Lignes 8999 à 9040, affichage trajectoire roquettes. 


TOTREM PILOTE DE CHASSE 
20 CLS 


25 PAPERO :INK2 

30 PRINT:PRINISPC(10) "PILOTE DE CHASSE 

39 PRINT:PRINT:PRINT@C(S)"ABATTEZ L” ESCADRILLE INCONNUE 
40 PRINI:PRINISPC(S) "QUI VIOLE VOTRE ESPACE AERIEN" 

45 PRINT:PRINT:WAIT100 

47 REH * Definition caracteres * 

48 FOR J=1 F0 4 

50 RE 


J 
60 DATA46BAU, ,1,1,3,15,60, 4,0 

42 DATA46592,0,0,00,56,30,16,0 

43 DATAGGBAB, 59,42, 82,51,45,45,51,63 
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64 DATA46830,4,14,14,14,14,4,10,0 
68 REM * Choix du niveau # 
9 TEXT 


6 
je PRINT" re de LDIEPTARIE 
PRINT" d:F 

72 PRINT” DAOYEN: 

73 PRINT" 3:FORT" 

74 INPUT"QUEL NIVEAU CHOISISSEZ VOUS":N1$ 

/S IF ASC(NI$)€49 OR ASC(NI$))51 THEN GOTO 74 
76 NI=VAL(N1$) 

99 REM * Initialisations * 

100 HIRES 

5 LL AE 
410 PAPER6 :1NK1 

420 CRE 10" 90,3 

430 FiLL?0,1, 19 

440 CURSET130, 90,3 

450 et {, 29 


460 R 
170 115 :Y=180 :KE=1000 :PNT=0 :HUN=20 :XE=80 :YE=80 :AV=0 
471 GOSUB 8000 
172 GOUB 5020 
173 REN x Boucle principale * 
474 REPEAT 
175 GOSUB 8100 
218 M$=KEYS$ 
190 IF Arr Es AND H${=CHR$(11) br GOSUB 5000 
200 IF H$=CHR$(32) THEN NUN=MUN-1 :60SUB 6000 
5 IF RDC) CAO THEN GOSUB 7000 
200 an 
230 UNTIL KE=0 
he qe HAQUE DE CARBURANT .RENTREZ À LA BASE” 


230 WALTS00 

260 INPUT"VOULEZ VOUS “alias (O/N)" RS 
270 IF R$="0" THEN RUN 

280 END 


999 REN * Deplacesent aire * 


1000 X=X+ 
1010 IF X)220 THEN X=115:Y=20: INKO:PNT=PNT-10 
hd GOTO 9020 


e010 F Fn THEN X=115:Y=180: INK1:PNT=PNT-10 
2020 G60TO 5020 


3000 Y=Y-4 

3010 IF Y(20 THEN X=30:Y=95: INK4:PNT=PNT-10 
3020 6070 5020 

4000 Y=Y+4 

4010 IF Y)180 THEN X=210:Y=95: INKS:PNT=PNT-10 
4020 G0TO es 


=Y 
5010 ON ASE (HS) -7 60701000, 2000, 3000, 4000 
5020 GOSUB 8200 

5025 CURSETXE, YE,0 

5030 CHAR&4,0,0 

5025 CURSET XÉ-6,YE,3 

5037 CHAR95,0,0 

5040 CURSETX, Ÿ,3 

5050 CHAR64,0,1 

5055 CURSETX-É, Y,3 

5057 CHAR95,0, 1 


ze 


9060 RETURN 

9999 REN # Tir Le # 

6000 ZAP:WE=1:G0SUB 9000 

6005 WAIT10 :WE=0 :60SUB 9000 

6007 GOSUB 8400 

6010 IF ABS(X-115)(9-NI ps ABS(Y-95){9-NI THEN EXPLODE :G0T04030 
6015 IF MUN=0 THEN G0TO 6090 

6020 RETURN 

6030 REM * Detruction avion # 


6031 P=1 

6032 FOR I=1 TO 10 

6034 CURSET110, 90,3 

6035 FILL20,1,16+P 

6036 IF P=1 THEN P=3 :60T0 6038 
6037 P=1 

6038 NEXT I 

6040 Alan 

6045 GOSUB 8200 

6047 AV=AV+1 :60SUB 8300 
ME IF Lu 4 ee G0TO 6090 
6070 É As Le = D0HEORINT (RAD 142) 
6080 6010 5020 


D PEU: PRINT"PLUS DE MUNITION.RENIREZ À VOTRE BASE” 


1 

6110 G0TO 250 

cu REM * SE avion * 
7000 XE=X :YE=Y 

7005 S=SGN(X-120) 

7010 X= EUR 

7020 N=SGN(Y-100) 

7030 Y= Va INT CIDMRNO C1) Jan 

7040 IF X290 . x 30: 

7050 IF X(20 THEN X 115 


J:PNT=PNT-10 
BO:PNT=PNT-10 
TE =PNT-10 


T=PNT-10 
7080 GOTO 5020 
7999 REN * rene * 
8000 POKE49042,96 
8010 POKE49050,95 
8020 POKE49051,64 
8030 Can UE 94 


8040 FOR 1=1 10 3 
rs PEAU, 124 


060 NEXT I 
8062 GOGUE 8400 
8065 GOSUB 8200 
6066 GOSUB 8300 


8070 RETURN 

8099 REN * Affichage kerosene * 
8100 EC1)=INT(KE/100) 

8110 E(2)=INT(KE/10)-10#E (1) 
8120 E(3)=KE-104E (2)-100%E (1) 
8130 FOR 1=1 T0 3 

8140 ALU EEE cuis 
8150 NEXI I 

8160 RETURN 

8199 REN x HMS score * 
8200 AP= ABS (PN 

8210 E(1)= 

8220 E(4)=INT(AP/1000) 


t 


ee 


8230 E(3)=INT(AP/100)-10#E (4) 

8240 E(2)=INT(AP/10)-10#E(3)-100%E (4) 
8250 IF PNT(U THEN E(5)=-3:G0T0 8270 
de E( Er 


FOR 
8240 PEAU E(1)+48 
8290 N 
8295 RETURN 
8299 REM x Mae avions touches * 
- 8300 E(1)=INT(AV/10) 
8310 E(2)=AV-10%E (1) 
8320 FOR 1=1 T0 à 
8330 PKE49052+I,E(1)+48 
8335 NEXI I 


8340 RETURN® 

8399 REM x HAT stock roquettes * 
8400 E(1)=INT(HUN/10) 

8410 E(2)=MUN-10#E (1) 

8420 POKE49062,E(1)+48 

HE ri E(2)+48 

8997 REH * frajgctopre roquettes * 
00 RENSE TA 

9010 DRAW-60, 90, WE 

ÿ020 CURSE 1115, 100,3 

9030 DRAW6O, 90,HE 

9040 RETURN 
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CHAPITRE b 


Jeux 
de réflexion 


5.1 AWELÉ 


Découvrez l'univers des jeux de réflexion africains. 
Passionnez-vous pour l'Awélé, jeu connu aux Philippines 
sous le nom de Côkajon, en Java sous le nom de Pakâän Da- 
kon, à Ceylan sous le nom de Câka, au Brésil sous le nom 
de Adi, et dans bien d'autres pays encore. Partagez l'en- 
gouement de ces peuples à cet exercice d'esprit. 


Imaginez-vous en Afrique, dans un village de paillo- 
tes, le soleil arrose la savane de ses dards acérés. A 
l'ombre d'un baobab, vous affrontez l'un des plus grands 
stratèges de la région, le sorcier du village. Vos gestes 
sont rythmés par les tam-tams qui sonnent au loin, à ces 
battements se mélangent parfois le rugissement des lions, 
le barissement des éléphants... L'enjeu : devenir digni- 
taire du village ou subir les maléfices du sorcier. Alors 
n'hésitez pas, prenez votre destinée en main, et soyez le 
plus fort. 


Le matériel du jeu traditionnel se compose de 48 


graines et d'un plateau en bois dans lequel sont creusées 
14 cases. Ces cases sont réparties de la manière suivan- 


BERNIE 


GAIoNeIe re 
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Cette aire de jeu ne nécessite aucun matériel parti- 
culier et est souvent tracée à même le sol. Pour plus de 
commodité nous numérotons les deux rangées de petites ca- 
ses et indiquons chacune de ces rangées par Nord ou Sud. 


Les règles du jeu sont aussi multiples que les noms 
sous lesquels l'Awélé est connu. Nous adopterons ici les 
_rêgles suivantes : 


- les 48 graines sont réparties au départ, de manière 
équivalente dans chacune des cases numérotées. 


- à chacun des adversaires sont attribués une rangée 
et une maison, celle-ci étant la case située au bout de 
sa rangée. 


- chaque joueur prend à son tour les graines d'une 
case quelconque de son côté du tableau, selon son libre 
choix (cases 1 à 6). 


- il les répartit alors une à une dans les cases sui- 
vantes dans le sens inverse des aiguilles d'une montre 
(il “sème"). 


- si son adversaire avait joué au coup précédent et 
que sa dernière graine tombe dans sa maison alors il re- 


joue. 


- si sa dernière graine tombe dans une case vide et 
que la case vis-à-vis de l'autre rangée est occupée, 
alors les graines de celle-ci et la dernière graine sont 
mises dans sa maison (remarque : vis-à-vis ne veut pas 
dire portant le même numéro, le vis-à-vis de 1 est 6, de 
2, 5..)e 


- s'il arrive qu'une des rangées soit vide, le pro- 
priétaire de celle-ci passera son tour jusqu'à ce que son 
adversaire lui fournisse des graines à déplacer. 


- le jeu est fini lorsque toutes les cases numérotées 


sont vides, le gagnant est celui qui a le plus de graines 
dans sa maison. 
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Le programme que nous vous proposons suit mot pour 
mot les règles énoncées ci-dessus. Le côté Nord est at- 
tribué à la machine et le côté Sud vous est attribué. 
Vous possédez le trait au départ. Les commandes utilisa- 
bles sont seulement les numéros 1 à 6 qui indiqueront à 
l'ordinateur la case que vous voulez vider. Vous noterez 


la présentation originale de ce jeu, 
remplacées par des petits 


les graines sont 
hommes, et les cases maison par 


des paillotes. Vous avez maintenant en main toutes les 
informations : ; 


alors “Bon jeu”. 


Sructure du programme : 


Lignes 10 à 120, initialisations. 


Lignes 130 à 160, gestion du tracé du décor et de la 
mise en place des petits hommes. 


Lignes 170 à 330, arbitre de la partie. 


Lignes 1000 à 1070, 


commande clavier. 


Lignes 


2000 


acquisition et validation de la 


à 2100, test du contenu des rangées. 


Lignes 3000 à 3090, déplacement des petits hommes. 


Lignes 


3100 


4 


a 3190, transfert des petits hommes lors- 


que la case vis-à-vis vient de recevoir la dernière grai- 
ne du déplacement précédent. 


Lignes 
Lignes 
Lignes 


Lignes 
rangée. 


Lignes 
Lignes 


Lignes 


4000 


5000 


6000 


7000 


8010 
8080 


8200 


à 4170, stratégie de l'ordinateur. 


à 5130, affichage décor. 


à 6080, dessin des paillotes. 


« 


a 


à 8050, effacement petit homme 


« 


à 8140, affichage petit homme. 


4 


à 8250, effacement petit homme 


= T6 = 


à 7070, numérotation des cases de chaque 


côté Nord. 


côté Sud. 


Lignes 8300 à 8470, affichage du nombre des petits 
hommes dans les paillotes. 


Lignes 8500 à 8520, décalage curseur pour affichage 
en double rang. 


Lignes 9000 à 9180, mise en place initiale des petits 
hommes. 


10 REM OUWELE  29MAÏL 10H00 
20 DIM BC14),60C14),X0 014), Y0C14),X0 014), YU C14) 
30 READK 


40 FOR L=0 TO 7 

YÙ READL 

él POKEK+L,L. 

70 NEXT 

80 DAlA46G4U,64,64,64,66,7/1,66,6%7,69 

100 REM 

120 Net :Es0 :Cx0 sDRAPEæQ ss GUM#Q0 2 ViDxQ 30070 

130 GOSUB S000 

140 FOR Led TO 14 sBCL)#4 NEXT 

150 BC7/)e0) 2B (014) 1) 

160 GOSUB Y(G00 

1/0 IFVIDETTMHENPRINT:PRINT'OOTE VILLE, VOUS PERDEZ VOTRE TOUR :WALTE 
UxGOTO 215 

180 GOSUB 1000 

190 LF ExO THEN GG1IG 246U 

1495 LF VIDeT THEN GOT0 170 

200 LF Me THEN PRINT 2PRINT'REJOUEZ" #GOSUB TUUU 

#10 1F Ex( THEN GO1T0 460 

AS LE COteT THEN PRINT 2PRINT®JE PERDS MON TOUR WG LT 100 :GOTO & 





220 FRINTs PRINT'A MON TOUR DE JOUER" :G08UE5 4000 
ë THEN GOIG #60 

2 JS 300 

Bai LETMEM THEN PRINT 2PRINTJE REJOUE" :GO0SUB 4000 

20 IF E)Q THEN GOT0 170 

260 PRINISÆRINT EAN DU JEU" #WALT 500 

#70 DeB (72-18 (14) ‘ 

UO LF D<O THEN PRINT 2PRINT"J'AL GAGNE ‘s-Ds" FOINTS":G0T0 310 
SYU EF DeQ THEN PRINT 2PRINT'PARTIE MULLE® 2UOTO 310 

300 PRINT 2PRINT'UOUS AVRLZ GAGNE ‘eDs" POINTS" 

310 WALT O0 PRINT 2PRINT #INPUT'VUOLILEZ VOUS REJGUER®%CO/N) "SR 
ge0 IF Ra "O"IHEN GOIO 120 

330 END 

1000 PRINTYPRINTE EINPUT®CASE à VIDER ‘cet 
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IUTQ XF M67 AND MOU THEN GOTO Ueli 

1040 PRINTaPRINTUIL NY APAS DE CASE NUMERO "sd 

49 WAIÏT SOÛÙ 46010 TCUU 

LEO BCM)JeU THEN PRINISFRAINTEUAGE VIDE "46010 10%0 
10S0 Hs 

1060 REM 

10/0 REM 

“000 K“i 
#04 








:GOSUE -3UOÛ 
#1 sCOTs1 
I=d TO 6 









2040 
2U40 EF BCL) C0 THEN VIDuU #16 






SU NEXI 

eU60 FOR Le 10 15 

20/0 LE BL) THEN COTe0 leds 

2080 NEXT I 

2090 AAA ET PI 

2100 RETURN 

3000 Pelé) 2H CM)æl) 

SUTO FOR PF TO 1 STEP +1 

3040 LF DRAP&Q THEN GOSUB 8010 

SOS MeMa 

3040 LE M>téa THEN MeM- T4 

SUOU IF Ms? OR Maté) ANDODRAP&l) FHL GUM&T Hem 1GOSUR 8300 
3Ué0 LE DRAPæU AND Méz/ ANDMED T4 THEN GOSUE 808) 
BUS HCM)ER CM) A 

SU/U NEXT PF 

SUBLI LE BéitoæT AND M<}/ AND M<>t4 AND BCTé4-M) CU THEN GOT0 4100 
30Y0 RETURN 

SOU 1F K€? THEN Ha/ ELSE Het4 

TIC KEeM sr DK THEN GOSUB B0TU 

dTa0 SU T 2 LFSDRAF &0Q THEN GOSUR 8S30Ù 

glass BCE CH) +1 

30 Pat Clé M) Ki t4-k 

13 [Fr DRAF&T THEN GOTO SIBU 

STAU UE OR Pis QU BTE +1 

BCTU 

“HOSUH 8300 

CH +1 














3190 RETURN 
40QU De-4(1) 


sHe T4 
TO 14 3GCLDMBCL) aNEXT L 






4UAU FOR 
4015 DRAP: 
4U20 FOR Jexg 10 1% 8lF BCJ)«0 THEN GOT0 4140 
4030 QGx0 Me) :50SUB 3000 


_ 
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4050 
4060 
4070 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
6000 
6010 
6020 
6030 
604) 
6050 
6U40 
6070 
6080 
7000 
7010 
7020 
7030 
7040 
2050 
7070 
8010 
8015 
8020 


LeBÇCL)+I 


NEXT I 


2R=0O 

IF L)14 THEN LeL-14 
IF B(L)=0 AND L<>7 AND L<)14 THEN R=BC14-L)+R 
IF R)Q THEN @=R 


Q=B(14)-B(7) 


FOR I=1 TO 14 : 
IF QD THEN ÀA=J 


NEXT J 
DRAP =) 


M=A :PRINT 


REM 
HIRES 


B(I)= 
:D=Q 


2R=1 :GOTO 4060 


GI) :NEXT 


1 


2PRINT'CASE VIDEEs:"3M-7 sWAITA10 :GOTO 2000 


PAPERS s#INKU 
CURSET15,90,3 


GOSUB 600 


0 


CURSET195,105,3 


GOSUB 600 


X=30 :Y=15 


0 


CURSET45,130,53 


GOSUB 7000 


X=-X 


CURSET190,70,3 


GOSUB 700 
RETURN 
REM 
DRAW30,0, 


(a) 


1 


DRAW-15,-10,1 
DRAW--15,10,1 


CURMOVS, 0,3 


DRAWO,15, 
DRAW20,0, 
RETURN 
REM 


L 


DRAUO,-15,1 


FOR I=1 TO 6 


Azx4G+T 
CHARA, 0,1 


LF I4 THEN Ve Y 


CURMOUX,Y,3 


NEXT [ 
RETURN 


IF K<7 THEN GOTO 82 


LF XCCK)=XOCK) C0 THEN XCCK):XÛ0 CK 2) +40 


XA=XE CK D = 


5 


2 YAEYECK) 


O0 


1ère 


EYCÉKOIEYLEK)-8 


8030 CURSETXA, YA, 3 
8040 CHARY6,U, 

8050 XC(K)æXA 2RETURN 

8080 XA=XC UM) 2 YAEYE CM) 

8090 CURSETXA, YA, 53 

8100 CHARYé, 0,1 

8110 LF M7 IHEN GOTO 8S0U 

B120, XC CM) EXC CM) 5 

a LE XD CMD XC CM) D IHEN XCCM)EXUCM) HTC CM LME 
8140 RETURN 

LE XOCK)-XCCKD 0 THENXEC KO) &XO CK 2-80 8 YC CRD YCCK) +8 
XA&XCCKI4+5 YA YECK) 

) CURSETXA, YA, 3 

8230 CHAR96, 0,0 

8240 XCCK)&XA 2RETURN 

8250 REM 

8300 SIGEBCH) s2AÏ&0 

S310 GOEUB 8400 

8320 SIGESIG+SUM #41: 

8330 GOSUB &400 

834) RETURN 

8350 REM 

8400 DIZ#INT(S16/10) 

8410 UNIT&S LG 10XDLZ 

8420 CURSETXOCH), YO CH), 3 

8430 CHAR4G+UNIT,0,AT 

440 CURMOV-6,0,3 

8450 CHAR4B+DIZ, 0, AT 

&460) RETURN 

8470 REM 

8500 XCCM)EæXC CM) +55 

8510 LE XCCM)+XOCM)>+25 THEN XCCM)æXO CM) 2 YO CM) YC CM) +8 
8520 RETURN 

9000 DATASS,120,85,1935,1145,180,145,165,175,150,205,135,210, 110 
9010 DATAI80,80,150,65,120,80,%0,35,60,50,30,6%, 40,9% 
YO FOR Ed TO 14 2READ XOCL) sREAD YOCI) 2NEXT [ 

902% RESTORE 

9080 FOR Let TO 14 :XCCI)EXOCL) 2 YCCL)EYOCI) aNEXT I 
9040 FOR Lx1 FO 6 2DEU=-5 

9050 GOSUB 9110 2NEXT I 

9060 FOR [#8 TO 13 :DECES 

90/70 GOSUB 9110 2NEXT 
9080 Hz7 :G0SUB 8300 
9090 Hx14 2:GO0SUB 8300 
909% RETURN 

9100 RETURN 
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9110 FOR Jæ1 TO 4 

Y1e0 XA=XCCL) sYAYCCL) 
9130 CURSETXA,YA,3 

9140 CHARYé, 0,1 

9150 XCCL)EXC CL) +DEC 
9160 NEXT J 

9170 RETURN 

9180 END 


5.2 CAVALIER 


Comment vous échapper de ce château mystérieux où 
votre curiosité vous a mené ? Heureusement pour vous, le 
propriétaire de ces lieux, un ermite enchanteur, vous 
laisse une alternative pour vous en sortir. Il vous a re- 
mis un échiquier et un cavalier magique. Chaque case de 
cet échiquier représente une grille que vous aurez à 
franchir. Pour pouvoir passer les soixante quatre gril- 
les, il vous faut obtenir la clef de chacune d'elles. Le 
moyen d'obtenir ces clefs est le suivant : vous choisis- 
sez une case de départ sur l'échiquier, vous y placez 
votre cavalier, puis vous le déplacez conformément au dé- 
placement d'un cavalier d'un jeu d'échecs. Chaque case 
parcourue vous donnera une clef, il vous faudra évidem- 
ment parcourir tout l'échiquier pour pouvoir retrouver 
votre liberté. 


Si vous voulez voir une solution, ou lorsque votre 
cavalier n'a plus de liberté de déplacement, ou encore si 
vous avez trouvé une solution, le magicien vous montrera 
sa solution. Vous pourrez alors tenter de trouver une au- 
tre solution. 


Le programme proposé ici vous fera chercher une solu- 
tion du problème précédent à partir d'une case que vous 
aurez choisie. Une solution vous sera proposée dans les 
cas cités plus haut. 


Les commandes à utiliser : 


- entrée des coordonnées de la case d'arrivée 


s 


L étant une lettre de À à H et C un chiffre de 1 à 8, 
- demande de solution de l'ordinateur 
S 
Sructure du programme : 
Lignes 10 à 150, initialisations. 
Lignes 150 à 220, moniteur principal. 


Lignes 1000 à 1220, tracé de l'échiquier. 


« 


Lignes 2000 à 2070, acquisition case à parcourir. 
Validation déplacement. Affichage cavalier. Test cavalier 
bloqué ou non. 


Lignes 3000 à 3110, validation commande entrée. 


Lignes 4000 à 4200, recherche et affichage d'une so- 
lution. 


Lignes 5000 à 5560, affichage du numéro du coup joué. 


Lignes 6000 à 6570, affichage du cavalier. 


s 


Lignes 8000 à 8050, recherche des cases accessibles à 
partir d'une position. 


Lignes 9000 à 9070, définition des caractères pour 
dessin du cavalier. 


S-REN  HEXEEXEUAEEX 
10 REM x CAVALIER # 
11 REN AE 
4 PAPER? :INKS 
100 REN * init: deplacenents * 
410 DIH H(8),U(8),1(8,8) 
120 DATAI, JEAE 2,4, Â,-2,-1,-2,-2,-41,-2,1,-41,2 
130 FOR 1=1 10 Ë 
1e EE re VI) 


ee ROSUB9000 

499 REM x Saut sur partie joueur * 

160 GOSUB 100ù 

170 GOSUB 2000 

179 REN # Saut sur se computer * 
480 PRINT :PRINT"VOILA UNE SOLUTION" 

185 FOR1=1TOB:FORJ= 11082 T(1,J)=D:NEXTJ,I 


_ 82 — 


190 GOSUB 4Ü0U 

200 PRINT : INPUT" Me us RECOMMENCER(O/N)";R$ 
210 IF R$=*0" THEN-RUNT 

220 END 

1000 ne : Dessin echiquier * 
1005 HIRE 

4010 PAPER: sINK1 

1020 CURSET24,6,Ù 

1030 C=19.5 :D=4,5 

1040 FOR 1=1 TO 8 

1050 FOR J=1 10 8 

4060 FILL23,1,C+D 

1070 D=-D 

1080 NEXT J 

1090 CURSE124(1+1),6,0 

1006 HEXD I 


4110 FILL184,1,18 

Es CURSETA8, 14,0 

1130 FOR 1=8 10 STEP -1 
1140 CHAR4B+1,0,1 

1145 [=1 THEN GOTO 1160 
1150 CURHOVO,23,0 

1160 NEXT I 

1170 191,0 
4180 FOR I=1 10 8° 

1190 CMARBRIL, 0,1 

RU CURNOV24, 0, 0 

1910 NEXI I 

1920 RETURN 

Te Fe # Partie joueur * 
2010 INPUT'CASE DE DPART(VER/HOR)":X$ 
2020 GOSUB 3005 

is X :YO=Y 

2040 T(X,Y)=0 

50 GOSUE 6000 
2060 REPEAT 

2070 T(X,Y)=T(X, Y)#1 | 
2080 INPUT'CAGE D'ARRIEE“;X$ 
2085 K=K+1 

2090 GOSUB 3000 

2100 IF X$="S" THEN GOTO 180 
2210 GOSUB 5000 

2020 DP=Ù 


2230 GOSUB 8000 

2240 UNIIL DP=0 

2050 1F K=64 THEN PRINT"BRAVO" :EXPLODE :G60T02270 
2260 PRINT :PRINT"VOUS AVEZ PERDU" :WAIT500 
2270 RETURN 

2999 REM * coordonnees * 

3000 IF X$="S" THEN GOTO 3110 

3005 0 ENT 

3010 X=ASC(LEFTS(X$,1))-64 

3015 1FK=0 THEN ao _3060 

re XH=X- pu re 

3040 ie A THÉNIE YU=V CI THENGOT03040 
nn ne TJ 


EE gro 3090 
3056 PING 
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3060 IF X(1 OR X28 OR Y{1 A Y)8 THEN GOTO 3090 
3080 IF T(X,Y)=0 THEN G0TO 3100 
3090 INPUT-CODE INVAL IDE .ENTREZ (VER/HOR)“ :X$ 
3095 GOTO 3000 
3100 HO=X :VE=Y 
3110 RETURN 
4000 REM * Partie computer # 
es GOSUB 1000 
005 X=X0 :Y=Y0 
A0” W=30+(X-1)424 :7=10+(8-Y)#23 
4040 T{X0,Y0)=0 :K=0 :DP=8 
4020 REPEAT 
4030 T(X,Y)=T(X, Y)+1 
4040 HIN=8 
4050 FOR 1=1 T0 8 
4060 A=X+HCI) :B=Y+V(I) :DP=0 
4070 IF A(1 OR A)8 OR B{1 OR B)8 THEN GOTO 4130 
4080 IF T(A,B)()0 THEN GOTO 4130 
4090 FORJITOB 
4095 C=A+H(J):D=B+V(J 
gi IF COOANAC PANDD)04NOD(? THEN IF T(C,D)=0 THEN DP=DP+1:CALLHFB 


4110 NEX1 
Ho IF PEN THEN NIN=DP :DH=A :DV=B 


4140 de " sY=DV 
450 K=K+1 
4160 GOSUB 5000 
4180 UNTIL HIN=0 
4200 RETURN 
4999 REN * Numerotage coup joue * 
S000CURSETW,Z,3 
9010 4=0 :GO0SUB 6500 
9900 REM 
9910 CURSETW,Z+4,3 
S900 DIZ=INT(K/10) 
J930 UNIT=K-01Z#10 
Jv40 CHAR4B+01Z,0,1 
J990 CURHOVS, 
3960 CHAR4B+UNIT, 0,1 
6000 RE 


6010 W=30+(X-1)%24 :2=10+(8-Y)#23 
6020 CURSETW,Z,3 
6030 4=1 :G0SUB 6500 
6040 RTURN 

6300 CHAR64,0,4 

6310 URHOV6,0,3 

&320 CHAR9S,0, 0 

6530 CURHOV-6,4,3 
6540 CHAR126,0,4 
6530 CURHOV6,0,3 
un D ,0,4 


Al ten * Recherche coups possibles * 

8020 EOR+H+3) T6D8Y+V(J) 

8030 IF C)0ANDC(YANDD)OANDD(9 THEN IF TC,D)=0 THEN DP=DP+1 
8040 NEXT J 

8050 RETURN 

8999 REM * Definition caracteres * 

9000 FORI=1T04 
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9010 READK 
9020 FORJ=0T07 

9030 READL 

9040 POKEK+J,L 

QUO NEXTJ, I 

9060 DATA4592,64,67,89,79,82,126,100,124 
9062 DATA46B4D, 96, 80,72,84,66,97,93,83 

9064 DATA46B48:72:72,79,120,80,78,5,127 
9066 DATA47088, 100, 194,100,127,66,92,96,127 
9070 RETURN 


5.3 MASTERMIND 


Mastermind est un jeu de réflexion inventé par un ma- 
thématicien : Mordechai Meirovich. Deux partis sont en 
présence, le codeur et le décodeur. Le rôle du codeur est 
d'élaborer une combinaison de quatre fiches, et de donner 
des informations sur cette combinaison. Le rôle du déco- 
deur est de trouver la combinaison élaborée en s'aïdant 
des informations données par le codeur. Les informations 
sont de deux types : nombre de bonnes couleurs à la bonne 
place, et nombre de bonnes couleurs à la mauvaise place. 
Le nombre de tentatives du décodeur est limité à dix. 


Le programme proposé joue le rôle du codeur. 
Six couleurs sont possibles : 
Rouge : R Bleu : B 


Vert : V Magenta : M 
Jaune : J Cyan : C 
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La combinaison élaborée est formée de quatre fiches, 
chacune de ces fiches pouvant avoir une des six couleurs 
précédentes. Les combinaisons multiples sont donc possi- 
bles. Pour entrer votre combinaison, vous devez procéder 
de la manière suivante : 


Tapez 
c, C; C; c, puis [RETURN] 


C; = code de couleur 


Les indications vous seront fournies dans les colon- 
nes C et P : 


— C : bonne couleur, mauvaise place, 

- P : bonne couleur, bonne place. 

Lorsque vous aurez trouvé la bonne combinaison ou 
utilisé vos dix tentatives, vous verrez s'afficher le bon 
code sur la première ligne du tableau. Et maintenant à 
vous de jouer. 

REMARQUE : si vous entrez 

Cisse 
SN Re cu hu 

Ci = code de couleur 

seuls les quatre derniers codes sont pris en compte. 


Sructure du programme : 


Lignes 10 à 110, commentaires. Appel au tracé du dé- 
cor. 


Lignes 120 à 140, élaboration du code secret. 
Lignes 147 à 148, affichage de C et P. 

Lignes 150 à 310, arbitre de la partie. 
Lignes 1000 à 1220, tracé du décor. 


Lignes 2000 à 2050, affichage du code secret. 
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Lignes 3000 à 3130, lecture et validation de la com- 
binaison entrée au clavier. 


Lignes 4000 à 4090, table de traduction des codes 
couleur. 


Lignes 5000 à 5090, affichage de la combinaison en- 
trée au clavier. 


Lignes 6000 à 6160, recherche des indications à vi- 
sualiser. 


Lignes 7000 à 7060, affichage indications. 


Lignes 8000 à 8090, effacement du contenu du tableau. 


10 REM MASTERMIND 289MA119H00 

100 REM 

110 GOSUB 1000 

120 FOR [x1 TO 4 

130 COMBCI)=INTCéXRND (1) +1) 

1440 NEXT I 

145 B=0 

147 W=19:B=32:Ye15 

148 GOSUB/000 

150 FOR K=1 T0 10 

160 GOSUB 3000 

170 GOSUB 5000 

180 GOSUB 6000 

190 GOSUB 7000 

200 IF B=4 THEN GOTO él) 

210 NEXT K 

220 PRINT :PRINT"VOUS AVEZ PERDU" :WAIT500 
260 PRINT 23PRINT'BONNE COMBINAISON À 
270 X=90, 2 Yx15 

280 GOSUB 2000 

290 PRINT:INPUT'UOULEZ VOUS REJOUER®%CO/N)D"5RS% 
300 IF R#x°0* THEN GOTO 8000 

310 END 

1000 HIRES 

1010 INK? 

1020 FOR'1=102 TO 224 STEP 18 

1030 CURSETL,10,53 

1040 DRAWO,165%,1 

1050 NEX1I IL 

1060 FOR 1=10 T0 175 STEP 15 
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1070 CURSET102, 1,3 

1080 DR6W108,0,1 

1090 NEXT I 

1100 FORL=OTOS 

4110 READCL : 
1120 CURSET20, 15%C1L+1),3 
11930 FILLS, 1,174 

1140 CURSETS6, 15% C1+1),3 
1140 FILLS,1,16 

1160 CURSETE 
1170 
4180 NEXTI 

1190 DATA82,86,74,66,77,67 

1200 RETURN 

1220 RETURN 

2000 REM 

2010 FOR 1x1 T0 4 

2020 COL) “COMB CL) 

2030 NEXT I 

2040 GOSUB SO 

2050 RETURN 

3000 REM 

PRINT 2PRINT sINPUITENTREZ VOTRE COMBINAISON" CHOIX 
FOR Lmé TO 1 SIEP 1 

CB CLR IGHTSCCHOLXS , 7 1) 

CB CLDHLEE 1 CCS CL), 12 

3060 NEXT I 
30/0 FOR Læ1 TO 4 

3080 COD#H:xCS% CL) 

3090 GOSUB 4000 

3100 IF TRAD=O THEN PRINT 2PRINT'CODE INVALIDE"s#WAIT 300 :GOT0 SUQU 
AIO CCL)ETRAD 

3120 NEXT I 

3130 RETURN 

4000 REM 

4010 1F CODE TR OIHEN TRADæT :GOTO 4090 

4020 IF CODB&"VT THEN TRAD: 5UOTO 4090 

4030 1F COD$="J" THEN TRAD#S3 2GO0T0 4090 

4040 1F COD#="B" THEN TRADx4:GO0TO0 4090 

4050 IF COD$="M" THEN TRAD#S 2GO0T0 4090 

4060 IF CODbx €" THEN TRADæ#é 2 GOTO 4090 

4070 TRAD“Û 

4080 RETURN 

4090 RETURN 

SO0U0 REM 

9010 Yeti TSxk 
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3020 
5030 
3040 
3050 
5060 
5070 
3080 
9090 
6000 
600$ 
6010 
6020 
6030 
6040 
6060 
6070 
6080 
6090 
6100 
6120 
6125 
6130 
6140 
6150 
6160 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 


FOR I 


æ1 TO #4 


X=108+18%xçCT-1) 


CURSE 


TX,Y,3 


FILL5,1,16+CC1) 
CURSETX+6,Y,59 
FILL5,1,16 


NEXT 
RETUR 
REM 
B=Q : 
FOR 


Ï 
N 


W=0 
I=1 TO 4 


IF CCL)=COMB(I) THEN B=B+1 


NEXT 
FOR I 
RCL)= 
NEXT 
FOR I 


: 
=1 TO 4 
COMB (1) 
I 

=1 TO 4 


FOR J=1 TO 4 


IF C< 
W=W+1 
GOTO6 
NEXT 
NEXT 
W=W--B 


L)CDRCJ) THEN GOT 
2RCJ)EQ 


140 


J 
T 


RETURN 


REM 
AT=1: 


sCAR=Û 


CURSET180,Y-1,3 
CHAR 4GB+W, CAR, AT 
CURSET1987-1,3 
CHAR4B+B , CAR, AT 


RETUR 
REM 


FOR K 


FOR I 


N 


#0 TO 10 
“1 TO 4 


C(1)+0 


NEXT 
GOSUB 
W=79 

GOSUB 


L 

5000 

2B=W 2ATE0 2 CAR=O 
7020 


NEXT K 


GOTO 


120 


0 4130 
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5.4 PENDU 


Voici un grand classique des jeux de devinettes. Un 
mot est choisi par votre Oric dans son dictionnaire. Vous 
devez le découvrir en un minimum de coups. Pour vous ai- 
der, le nombre de lettres du mot vous est donné par des 
étoiles recouvrant les lettres. Vous devez proposer une 
lettre et si elle fait partie du mot secret, elle appa- 
raîtra à sa place dans le mot. Mais si elle n'appartient 
pas au mot ou si vous l'avez déjà proposée, une partie du 
pendu se dessinera sur l'écran. D'abord le socle et la 
potence puis la corde, la tête, le corps, les bras et en- 
fin les jambes. Quand la jambe gauche se dessinera, vous 
aurez perdu. L'Oric vous donnera la solution. Attention, 
soyez “fair-play" et ne faites pas exprès de perdre pour 
voir se dessiner le pendu ! 


Structure du programme : 


Lignes 20 à 190, tracés des décors et présentation du 
jeu. 


Lignes 220 à 270, recherche du mot dans le diction- 
naire. 


Lignes 300 à 330, effacement du pendu. 
Lignes 350 à 380, entrée de la proposition de lettre. 
Lignes 390 à 410, tri des lettres déjà jouées. 


Lignes 470 à 540, testent si lettre valable et si mot 
trouvé. 


Lignes 1000 à 1050, sous-programme de traitement de 
lettre trouvée. 


Lignes 2000 à 3070, tracé du pendu. 


Lignes 4000 et suivantes, dictionnaire. 


=: 00 + 


REMARQUE IMPORTANTE : 


Le dictionnaire est écrit en DATA. La première donnée 
à la ligne 4000 est le nombre de mots contenus dans 
le dictionnaire. Les autres données sont les mots. Le 
nombre de mots par ligne de DATA est sans importance. 
Evitez toutefois de dépasser la contenance de la li- 
“ gne. Ecrivez les mots entre guillemets. Vous pouvez 
donc modifier et allonger le dictionnaire à votre 
guise. Créez-vous plusieurs dictionnaires contenant 
un vocabulaire spécialisé ou de niveaux différents et 
enregistrez-les sur cassette. 


SREM  HRHRENNEX 
40 REH x JEU DU PENDU # 
15 REM XKHHKEXHNEXANNEXE 
20 PAPER O:INK 5 

He HIRES:INK3 


E=15 
J0 E$="JEU DU PENDU” 
60 FOR 1=1 10 LA 
70 CURSET E+1x8,20,0 
80 CHAR ASC(HIDE (ES, 1,1)),0,1 
85 NEXII 
9Ù CURSETE, 10,0 
100 DRAW110,0,1 
110 DKAWD, 28,1 
120 DRAW-110,0,1 
130 DRAWD, -28,1 
140 CURSET137,0,0 
450 FI 


190 LUGET OM, A00,0:CHAR127,0,0:NEXT 1 
200 8$=" “:6=0:P=0 
210 ut * Recherche du not # 


2o0 READJ 
230 N= D MAMRRUE 


235 i=Ù 


c4Ü REPEAT 

doÙ [=1+1 

dé0 READ JS 

dés U=FRE(*") 

2/0 UNTIL I=N 

aBU LM=LEN(JS$) 

e90 FOR 1=1 10 LM 

JUÛ CURSET10+1%6, 100, 0 

310 CHAR 127,0,0 

JeÙ CHAK 45,0,1 

330 NEXT I + 

340 REM * Debut * 

Ja0 PRINT"Quelle lettre jouez-vous?":1=0 
360 GET À$ 

3/0 IF A$C"A"OR A$2"Z"THEN G010 360 

380 PRINT‘ Vous avez joue la léttre “;A$ 
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390 FOR I=1 TO LEN(BS) 

ne DAENENNR: ls 1) THEN PRINT'deja jouee":B$=B$+A$:G0T0 460 
1 

nr B$=B$+A$ 

430 FOR 1=1 T0 L 

440 IF MEAIDEU, 1,1) 1HEN GOSUB 1000 

450 NEXT ! 

460 IF T=0 THEN 6070000 

470 IF SC)LN THEN 6010 350 

480 PRINT"Vous avez trouve en “#LEN(B#)-1:" coups" 

490 PRINIBS 

495 WAIT400 

900 PRINT“Voulez vous re jouer ?(0/N) 

910 GETD$ 


520 IF D$="0" IHENPRINT"OK!":RESTORE :60F03500 
930 IF D$=°N* THEN END 

540 G0T0 510 

990 REN * Lettre trouvee * 
1000 T=1 

1010 5=5+#1 

1020 CURSET10+1%6, 100,0 
1030 CHAR 127,0,0 

1040 CHAR ASC(A$),0,1 

1030 RETURN 

1990 REN x Trace du pendu * 


2000 P=P+1 

2010 6010 2000+100*P 
2100 CURSET120,130, 0 
2110 FIL 


2100 FOR 1=1 10 1 

2130 CURSET 150, Pt, Ü 
ei4Ù “re Ü, 1 

2130 N 

2té0 Der, 140,0 
2170 DRAW 80,01 

e18D CURHOV U,5,0 

2185 DRAW-80,0,1 

2190 GOTO 350 

2000 CURSET 140,40,0 
2010 FILL90,1,5 

doo0 FOR 1=1 10 8 

2030 CURSET 199+1,40,0 
2040 DRAW 0,90,1 

dou0 NEXT I 


2260 GOTO 350 

2300 CURSET 140,41,0 
2310 FILL 10,1,4 

é3o0 FOR 1=1 TO 10 
En or 150,40+1,1 


LA À 


2360 CURSET 180,50,1 

2370 DRAW 20,20,1 

2380 GOTO 350 

2400 CURSET 175,50,1 

2410 DRAN 0,10, 

2420 GOTO 350 

2300 CURSET175,67,0:CIRCLE 7,1 
2910 CURSET173,64,1 

2520 CURNOV4,0,1 

2530 CURSET173,67,0:CHAR45, 0,1 
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2540 6010 350 

2600 CURSET 175,74,1 
2610 DRAND,28,1 

2620 B0TO 358 

2700 CURSET 175,80,1 
2710 DRAW-10,15,1 
2720 6010 350 

2800 CURSET 175,80, 1 


2900 CURSET175,100,1 
2910 DRAW-10,20,1 
2900 6070 350 

3000 CURSET175,100,1 
ie _. 10,20,1 


3050 PRINT"Desole,vous avez perdu” 
93060 PRINT"Le amot etait:";J$ 

3070 GO0TO 495 

3900 FOR 1=1 TO à 


3510 FOR J=1 TO 
DD GET OU S. 2041480 

3530 CHAR 127,0,0 

3540 NEXTJ, I 

3550 60T0 180 

3990 REM # Dictionnaire * 

4000 DATA4O, “KIMI”, "ZIGOMAR”, "ORIC", “DEVELOPPEMENT”, “ ILLUSTRATION" 
4010 DATA “REVOLUTION”, "THALASSOTHERAPIE", “OUIE”, “RÉSOLUTION”, "KYSTE" 
4020 DATA “ALEATOIRE”, “ORDINATEUR”, “UNIVERSEL”, “RICROPROCESSEUR *HEMC 
4030 DATA “TERMINAL”, “INFORMATIQUE” , "AZIMUT", “ANALYSE”, “TECHNOLOGIE * 

OCASSERIÉ”, "HÉSITER", KSAR* ,"ORTHOGRAPHE”, LUXE 
À "ZEN", "FISTULÉ”, “PLASMODESHE”, “VACUOLE”, "HIPOTHALAMUS" 

4060 DAT A "RESISTANCE”, “CONDENSATEUR”, “ INDUCTANCÉ”, "DIODE”, “TRANSISTOI 
4070 DATA PARTS TeRELATIVITE”, “ATRACTION", “RAYONNEMENT”", "GALAXI! 


5.5 REVERSE 


Ce jeu pourrait s'appeler le jeu des contorsionnistes 
de l'esprit. Vous comprendrez vite pourquoi en y jouant ! 


La règle du jeu est simple : il s'agit de remettre 
dans l'ordre croissant une série de neuf chiffres préala- 
blement mélangés. Simple, oui, mais pour effectuer ce 
réarrangement, vous devez dire combien de chiffres à par- 
tir de la gauche vous voulez inverser. 


Par exemple si vous demandez d'inverser quatre chif- 
fres à la série : 4 3 2 1 5 6 7 8 9 vous obtiendrez : 1 2 
3 4 5 6 7 8 9 et vous aurez gagné. 


Evidemment, quand les chiffres sont mélangés davanta- 
ge, de nombreuses inversions sont nécessaires avant 
d'arriver à la solution. Le but du jeu est justement de 
trouver la méthode permettant d'en effectuer un minimum. 


= 9% > 


Il existe une méthode systématique qui permet d'arri- 
ver facilement au bout mais qui est longue. Vous pouvez 
vous fier à votre chance et inverser un peu au hasard. 


Faites le concours du plus rapide et que le meilleur 
l'emporte ! Pour répondre aux questions, entrez la répon- 
se puis pressez la touche [RETURN]. 


Le programme mélange la série de chiffres, vous donne 
le nombre de coups joués et détecte la fin de la partie. 
Si vous voulez vous arrêter en cours de partie, pressez 
le chiffre O. 


Méfiez-vous des torticolis que vous pourriez subir en 
essayant de regarder les chiffres inversés ! 


Structure du programme : 


Ligne 40, initialisation de la chaîne de caractères 
donnant la solution. 


Lignes 50 à 140, mélange des chiffres. 


Lignes 170 à 200, entrée du nombre des chiffres à re- 
tourner. 


Lignes 210 à 250, inversion des chiffres. 
Ligne 270, test de fin de partie. 
Lignes 280 à 320, fin du jeu. 


La ligne 100 vérifie que la série ne contient pas le 
même chiffre plusieurs fois. 


SREM KK#KKKKEKENX 
10 REM x REVERSE x 
AS REM HHHRHIEENX 
“ Un NERO PAL EMAIRRENNE 


40 FORI=1 10 9:E$=ES+STRE(T):NEXT I 
0 Re en 
= 


0 REPE 

7 RL CRADC 18941) 
0 FOR 1=2 TÜ N GTEPA 

110 IFVAL(NIDS(L$,1,1))=A THENGOTO 80 

110 NEXT I 

120 N=N+2 
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130 L$=L$+STRS(A) 
140 UNTIL N=18 
150 PRINILS: 64 
160 PRINT"COUP NUMERO * 
170 PRINT: INPUT" COMBLEN" DE CHIFFRES RETOURNEZ VOUS" ;C$ 
180 IF C$("0" OR C$)"9" THEN GOTO 170 
190 IF Sn THEN GOTO 300 
200 C=VAL(CS) 
. 210 D$=LEFT#(LS,Cx2) 

200 FOR 1=1 TO L 
230 G$=NIDS(D$,2x1-1,2)+6$ 
240 NEXT I 


Et Se LE 
270 1F Lé(2E$ THEN G010 150 
280 PRINILS 
290 PRINI VOUS AVEZ REUSSI EN “:R;" COUPS" 
. INPUT" nr VOUS REJOUER" 1F$ 
310 1F F$="0" THENRUN 
320 END 


“u 


5.6 SOLITAIRE 


Quand Montaigne jouait les ermites dans sa bibliothè- 
que, il aimait se divertir grâce à ce jeu. Comme son nom 
l'indique, le solitaire se joue seul. Le principe est 
simple. Le plateau de jeu est constitué d'une grille for- 
mée par l'intersection de six lignes, formant ainsi tren- 
te-trois intersections où l'on peut loger trente-deux 
fiches. Pour déplacer une fiche, il faut prendre une au- 
tre fiche. Cela peut se faire si l'intersection suivant 
celle-ci est inoccupée. Le déplacement est horizontal ou 
vertical seulement. Cela ressemble à la prise au jeu de 
dames sauf que l'on ne se déplace pas en diagonale. Le 
but du jeu est de n'avoir plus qu'une seule fiche à la 
fin de la partie. Pour y arriver, il faut de la méthode 
et surtout de l'astuce. Ne laissez pas votre matière 
grise au chômage ! 


Un inconvénient du jeu tel qu'il se présente habi- 
tuellement, est que comme on y joue seul, par définition, 
il n'y a pas d'arbitre. Il est bien difficile dans ce cas 
de résister à la tentation de pousser un peu le sort en 
fin de partie pour se rapprocher du but. Avec l'Oric, 
vous disposerez d'un juge-arbitre impartial qui vous in- 
terdira les déplacements illicites et vérifiera que la 
partie est terminée. 


2,052 


L'écran est utilisé comme plateau de jeu. Chaque in- 
tersection est repérée par ses coordonnées horizontale et 
verticale. Vous rentrerez une lettre de À à G pour l'ho- 
rizontale puis un chiffre de 1 à 7 pour la verticale. 
Entrez les deux caractères à la suite puis pressez la 
touche [RETURN]. Vous pouvez toujours corriger vos coor- 
données grâce à la touche [DEL] avant d'avoir pressé 
[RETURN]. Tout autre manipulation sera refusée hormis 
[CTRL] qui arrêtera le programme en cours d'exécution si 
vous désirez interrompre la partie. Celle-ci peut être 
reprise grâce à la commande CONT. 


Bon divertissement et ne fatiguez pas trop vos neuro- 
nes ! 


Structure du programme : 


Lignes 20 à 220, assurent l'initialisation des ta- 
bleaux contenant les déplacements possibles (F et G) et 
la grille du jeu (S). La valeur 0 indique une intersec- 
tion vide, 1 une occupée, et -1l une intersection interdi- 
te. 


Lignes 230 à 350, dessinent la grille sur l'écran. 


Lignes 360 à 420, permettent l'entrée des coordonnées 
de la fiche à déplacer et testent si elles sont valides. 


Lignes 430 à 540, permettent l'entrée des coordonnées 
de la fiche déplacée et testent si l'intersection d'arri- 
vée est autorisée. 


Lignes 550 à 580, modifient le tableau représentant 
la grille du jeu. 


Lignes 590 à 660, déplacent et Ôôtent les fiches cor- 
respondant au coup joué. 


Lignes 670 à 770, servent à tester la fin de la par- 
tie. 


Lignes 780 à 820, assurent l'affichage des résultats 
finaux et la fin du jeu. 


« 


Le sous-programme 1000 à 1050 redéfinit les caractè- 
res de code ASCII 95 et 96 qui servent à représenter le 
plateau du jeu. 
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40 REM # SOLITAIRE x 
20 DIN S(11,11) 
30 N=32:1EXT:CLS 
40 F(1)=0161)=1 
50 F(2)=0:6(2)=-1 
80 F(3)=-1:6(3)=0 
70 Ft4)=1:8(4)=0 
80 DE 
gÙ PAPERS: INK 
4 PLOID, TL. JEU DU SOL TAIRE* 
fi G0SU 100Û 
120 FOR 1=1 10 #1 
130 FOR J=1 10 11 


260 CURSET X+Lxé,Y+JK6,Ù 

2/0 IF SI, J)=TINEN CHAR 96,0, 1 

280 1F 5(1,J)=0 1HEN CHAR 95,0,1 

290 NEXTJ,I 

300 FOR 1=3 10 9? 

J1ù CURSET X+L%6,Y,0 

340 CHAR 46+1,0,1 

330 CURSET X,Y+1#6,0 

340 CHAR62+1,0,1 

390 NEXT I 

360 INPUT"Loor donnees de la de a deplacer” :A$ 
4/0 C= NT 1))sA=FRECT 

480 B=ASC(RIGHIS (AS, 1) ) 

rs ie js -bu)#(C-71)=(0)3#{(B-49)#(B-37)(=0)()1 THEN GOTO 360 


bc 
40 IF S(B,C)(}1 THEN GOTO 360 
430 ANPUT" Coor donnees d’arr ivee es la fiche”:A$ 
440 E=ASC(LEF1$(A$,1)): lg FKE(* 
450 D= ASC(RIGHTS (AS, 1)} 
4éu IF ((E-85)#(E-71)=(0)#( (D-49)x(D-57)=(0) € 1 THEN G010 430 
470 D=D-46 
480 E=E-62 
KT FOR 1=1 TG 
300 fe d B4F (L)32 AND E=L+bi1)#2 THEN GOTO54G 


JiU NEAT I 
520 Pr un VALABLE” 
1F S(D, E){30 OR SiB+F(L),C+G(12)()1 THEN GOTO 360 


a 5(B,C)= ’ 

4/0 S(D,E)= 

J80 SURF), C+b(1))=0 
390 CURSET X+B%6, Y+CXB, 0 
600 CHAR 127,0,0 

é10 CHAR 95,0,1 
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bè0 CURSET X+(B#F(L))#6, Y#C+G(1))#8, 0 
gä0 CHAR 127,0.0 

&4D CHAR 95,0,1 

650 LURSET K+Dxé, Y+E48,0 

660 CHAR 96,0, 1 

870 LE N=1 THEN 6010 /80 

sëÙ FOR 1=3 10 9 

850 FUR J=3 10 9 re 

700 1F S1,J)=1 AND S(1,J+1)21 AND S(1,J+2)=0 THEN G010 830 
QD 1F SC, Det AND SC, D)=1 AND S(J#2, I)=0 THEN 6010 830 


j20 NEX 
730 FOR J=9 10 3 
740 IF 5(1,J)=1 AND S(1,9+1)1 AND G(1,J+2)=0 THEN 6010 830 
JE SU D AND S(J#1,1)=1 AND S(J#+2,1)=0 THEN GO0TO 830 


770 NEXT I 

160 PRINT*FIN DE LA PARTIE” 

/90 PRINT"IL RESTE “;N; "FICHES" 

800 WALTS0D 

810 LNPUT“Voulez vous rejouer (0/N)°;A$ 

820 IF A$=“0* THEN RUN 

825 END 

630 1F N()1 THEN 6010 360 ELSE GÜTU 780 

1000 FOR 1=46840 T0 46855 

1010 READ J 

4020 POKE [,J 

1030 NEXT I 

1040 RETURN | ! | 
1090 DATA 8,8,8,5,63,8,8,8,8,8,28,62,63,62,04,8 


5.7 TÉLÉCRAN 


Développez les facultés de dessinateur qui sommeil- 
lent en vous. Télécran vous aidera dans cette tâche. Vous 
pourrez grâce à lui faire naître sur votre écran des gra- 
phismes plus beaux les uns que les autres. Vous voulez 
dessiner une voiture, un avion, une maison, un paysage... 
c'est possible. C'est votre imagination qui crée l'objet 
que Télécran va visualiser. Laissez votre côté artistique 
s'épanouir. 


Le programme que nous vous proposons ici permet d'ef- 
fectuer les mêmes fonctions que sur un Télécran tradi- 
tionnel, c'est à dire : déplacer le crayon à l'aide de 
plusieurs commandes, ce crayon laissant une trace visua- 
lisant sa trajectoire, et effacer complètement l'écran. 
En sus de ces fonctions le programme vous permettra de 
travailler en mode "déplacement", le crayon se déplaçant 
sans laisser de trace, ou en mode “gomme”, le crayon 
étant alors remplacé par une gomme qui effacera tout sur 


son passage. 
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Commandes à utiliser : 


- Les flèches donnent le sens de déplacement du 
crayon. 


- E : mode écriture, le déplacement du crayon laisse 
une trace sur l'écran. 


- D : mode déplacement, le déplacement du crayon ne 
laisse pas de trace de son passage. 


—- G : mode gomme, le crayon efface tout sur son pas- 
sage. 


- T : commande d'effacement de l'écran. 

— F : commande de sortie du programme. 

Structure du programme 

Lignes 10 à 100, impression des commandes possibles. 


Lignes 110 à 170, tracé du cadre limitant l'évolution 
du pointeur. 


Lignes 180 à 190, initialisations. 


Lignes 200 à 260, acquisition et validation de la 
commande clavier. 


Lignes 1000 à 1030, déplacement du curseur vers la 
gauche. 


Lignes 2000 à 2030, déplacement du curseur vers la 
droite. 


Lignes 3000 à 3030, déplacement du curseur vers le 
haut. 


4020, déplacement du curseur vers le 


pp 


Lignes 4000 
bas. 


Lignes 5000 à 5030, affichage curseur. 
REMARQUE : Il est possible de changer les couleurs du 


“Papier” et de l'"Encre", pour cela, 
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Taper F. 
Si vous voulez conserver votre dessin 
Entrez 


PAPER p : INK i (p et i étant des attributs 
couleur) 


puis 
GOTO 130 


Si vous voulez effacer le dessin 
Entrez 


HIRES 


PAPER p : INK i 


GOTO 130 


10 REM TELECRAN 29 MAI 83 18h00 
20 CLS 

30 PRINT 

40 PRINT"Vous pouvez: 

50 PRINT'Ecrire(E)," 

60 PRINT "Gommer (G),* 

70 PRINT"Deplacer le crayon(D)," 
80 PRINT'utiliser les fleches,” 
90 PRINT'effacer tout (T) ou vous arreter (F})."2WAI 1500 
100 REM 

110 HIRES 

120 PAPER6:INK4 

130 CURSET20,10,1 

1440 DRAW200,0,1 

150 DRAWU,180,1 

160 DRAU-200,0,1 

170 DRAUU,-180,1 

180 CURSET120,100,1 

185 Xe#120 s:Y=100 Het :Ge1 2 Te0 
1490 PRINT:PRINT"'ECRITURE" 

U0 ASFREC"")SGET M$ 

210 IF M$="G" THEN He0 :G=0 2:70 2PRINT 2PRINT'GOMME" 
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2eÙ IF M$="D" THEN Het s3GeS: Tel SPRINT 2PRINT'DEPLACEMET" 
230 IF M$="E" THEN Had sGe1 2 T#0 SPRINT 2PRINYT"ECRITURE” 


240 IF M$="F" THEN END 

242 IF M$="T" THEN GOTO 190 

45 CURSETX,Y,G 

247 IF 1=1 THEN G=0 

290 1F M$)=CHRS$ C8) ANDCHR# (11)>=M$ THENONASC(M$)-7 GOTO1000,2000, 30t 
0, 4000 

495 LFTETANDPOINTEX, Ye 1 THENGE1 
26U GO10 200 

1000 REM 

1010 X=X-1 

1020 IF X<20 THEN X#X+1 

1030 GOTO 5000 

2000 REM 

2010 X=X+1 

2020 IF X)2220 THEN X=X-1 

2030 GOTO 5000 

3000 REM 

3010 Y=Y+1 

3020 IF Y)190 THEN Y=Y-1 

3030 GOTO 5000 

4000 REM 

4010 Y=Y-1 

4020 1F Y<10 THEN Y=Y+1 

5000 REM 

501$ IF POINT(X,Y)=-1 AND Te1 THENG=1 
5020 CURSETX,Y,H 

5030 GOTO 200 
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Annexes 


1 Coordonnées sur l'écran 


x 


— Basse résolution 
La zone non hachurée est accessible par les instructions 


PRINT et PLOT. La colonne 0 est accessible par un PLOT. 


Grilles donnant les coordonnées sur l'écran. 


A. 




























































































































































































aioue aerded 
anarnoo ananoo 
auuoro) auuoTo) 
[l A 

CIIIIIIIIIIIIIIIIIII I ] À 9% 086 8v 
HE st 0v6 8% 
+ 74 006 8% 
et 098 8% 
[ [1] zt 078 8v 
[| [11 1Z 082 8r 
07 OvL 8% 
61 002 8% 
gl 099 8v 
LT 079 8% 
oT 08S 8v 
ST 0YS 8y 
FT + tt 006 87 
ET 09% 87 
RER Ai OZY 8y 
CII 1 AA 11 08€ 8r 
[IT 11 se EEE EEE LATE “ot OvE 8y 
ÉRÉRER El Éd on 
HÉEEEEEE © lon 
LIT TI 72 9 087 8 
— À S OvT 87 
+ EM un HZ ? loin 
CHERE EE ii 
SARFSTETERERRR EN RERERRDRAMEE ES AZ] 71 080 8% 
CTI II II II III III IIIIIIIIIII I IIIIIIL122 0 0vo 8% 

LAIT 

6 L € 


6£ LE SE €E TE 62 42 ST Et IC 61 LT ST ET Il T I- suuoroo 
Op BE 9€ VE ZE O€ 87 97 va LT OZ BL QU 1 ZI OT 8 9 #Y ZT OO  ?elRT osseipy 
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B. — Haute résolution 


X 




























































































































































































222222222422 
TALALALAAA ZA A2 
VYTANYTINITIATTEI D 
AD AE DR CN RS ES DR A 
SEE LB D Er KE 
== RE A QE D D ON ES ER PE 
FE EN A A A 2 D ER DE ER EN ER BE 
SRE SGSE A EN SÉRIE RNRERRRNER 
A NE A PH EN SE OL GER 
OU VS 2 EE VE EE Ex ne 
EL ÉÉRREE 
LL LE 
BRBREE in 
EE EN EE: Î 
SORMEN ER 
DT Ï Lit] 
EE | ] [TT 
TE DRE 
EL = 
BE 
5e BAS GE [I 
I cn SE GS EM 
D RE SO EE ES ES EU RE EE 
D EL EE GR EE Î 
RRREREn EE 
- HE E 
ET Cet OI B6I J8I VIT ZA OST SET O9CI II COL 06 
07c 8cz QI 70 C6I O8T BAT JT YYI CET OCI SOI 96 





À 

) 
007 ) 
z61 
Ye 
9LT 
891 
O91 
ST 
YvT 
9ET 
8cT 
OZT 
II 
YOT 
96 


euuotoo 
PAaêl 


070 67 
000 6 
096 8% 


096 @7 


sssoipy 
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: 


4 


2 Caractères ASCII 


Table des caractères contenus en RAM 
emplacement du ler octet en mémoire 


2 3 4 
160 vide 46336 
161 ! 46344 
162 46352 
163 # 46360 
164 $ 46368 
165 % 46376 
166 & 46384 
167 46392 
168 ( 46400 
169 ) 46408 
170 * 46416 
171 + 46424 
172 , 46432 
173 — 46440 
174 46448 
175 / 46456 
176 O0 46464 
177 1 46472 
178 2 46480 
179 3 46488 
180 4 46496 
181 5 46504 
182 6 46512 
183 7 46520 
184 8 46528 
185 9 46536 
186 : 46544 
187 ; 46552 
188 < 46560 
189 = 46568 
190 > 46576 
191 ? 46584 
192 @ 46592 
193 A 46600 
194 B 46608 
195 C 46616 
196 D 46624 

Code ASCII ; 2 : 
: Jeu normal ; 5 : 


5 1 
37360 69 
47368 70 
47376 71 
47384 72 
47392 73 
47400 74 
47408 75 
47416 76 
47424 77 
47432 ‘78 
47440 79 
47448 80 
47456 81 
47464 82 
47472 83 
47480 84 
47488 85 
47496 86 
47504 87 
47512 88 
47520 89 
47528 90 
47536 91 
47544 92 
47552 93 
47560 94 
47568 95 
47576 96 
47584 97 
47592 98 
47600 99 
47608 100 
47616 101 
47624 102 
47632 103 
47640 104 
47648 105 


Code en inverse ; 3 
Jeu semi-graphique 
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2 


210 
211 


215 
216 


220 
221 


22 


223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 


He D 09 Hh D À 0 gb (Of) NN KE SC HU WOMOZERNRUMNEQE 


46632 
46640 
46648 
46656 
46664 
46672 
46680 
46688 
46696 
46704 
46712 
46720 
46728 
46736 
46744 
46752 
46760 
46768 
46776 
46784 
46792 
46800 
46808 
46816 
46824 
46832 
46840 
46848 





46856 
46864 
46872 
46880 
46888 
46896 
46904 
46912 
46920 


: Caractère 


ANNEXE 2 — CARACTERES ASCII 


Table des caractères contenus en RAM 
emplacement du ler octet en mémoire 


2. 3 


234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 


Tu nOQOTOs Er C 


: Code ASCII 
: Jeu normal 


4 


2, 


1 


117 
118 
119 
120 
121 
22 
123 
124 
125 
126 
127 


2 


245 
246 
247 
248 
249 
250 
291 
252 
253 
254 
255 


Code en inverse ; 
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3 


3° 


47016 
47024 
47032 
47040 
47048 
47056 
47064 
47072 
47080 
47088 
47096 


Caractère 


3 Commandes FILL 


Syntaxe : FILL L, C, A 

L est le nombre de lignes à remplir (de 1 à 200) 
à partir de la position du curseur qui est donnée par un 
CURSET précédent, ou à partir de la dernière ligne du 
FILL précédent. Ne pas donner à L une valeur telle que 
l'on puisse déborder de l'écran. 


C est le nombre de colonnes de 6 pixels à partir 
du curseur. Il est compris entre L et 40. On ne doit pas 
déborder l'écran. 


A est un attribut du FILL (de O à 255). 


Si O0 < A < 32, on obtient les mêmes effets que pour 
l'attribut du PLOT. 


. de 0 à 7 modifie la couleur de l'encre. 
. de 16 à 23 modifie la couleur du papier. 


La commande agit alors sur toutes les colonnes sui- 
vantes sur la ligne quelle que soit la valeur de C. Son 
effet s'arrête quand une autre commande FILL est rencon- 
trée sur la ligne. 


Les attributs en mémoire d'écran sont lus de la gau- 
che vers la droite de l'écran. 


On ne peut écrire sur les cases contenant les codes. 
. de 12 à 15 provoque le clignotement. 
. de 8 à 11 redonne l'affichage normal. 


. de 24 à 31 modifie les paramètres de synchronisa- 
tion de l'image C (cela peut permettre une adaptation à 
un moniteur aux normes américaines). Ces valeurs sont à 
éviter car l'affichage peut se déstabiliser. On peut tou- 
tefois l'utiliser pour des effets spéciaux (explosion). 
Pour le resynchroniser utilisez l'attribut 31 au delà de 
32, le bit 6 de l'attribut passe à 1, l'octet est reconnu 
comme un motif. 
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valeur de l'attribut = 
somme des nombres pour 
case à 1 


inversion des 1 couleur encre 
couleurs si à 1 0 couleur papier 


L'attribut 63 colorie les 6 pixels en encre, 
très utile pour remplir des zones de l'écran avec la 
couleur de l'encre. 


Les motifs obtenus peuvent être modifiés par un 
DRAW ou un CIRCLE si le bit est à 1. 
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Décimal 


© 1 OO Ui F& © D HO 


a _ 
ND Los © 0 


H 
(es) 


14 


Escape 


E © 4 ü Q w > À) 


H 


Z 


K X Z < G HN m0 HO 


NN 


te —— 


4 Les Attributs 
Fonction 


encre noire 
rouge 
verte 
jaune 
bleue 
magenta 
cyan 
blanche 

caractères 


non 


clignotants 


PMPMMP MIS PA 


caractères 


clignotants 


papier noir 
rouge 
vert 
jaune 
bleu 
magenta 
cyan 
blanc 

synchronisatio 

Hz 


synchronisatio 
Hz 


synchronisatio 
60 Hz 


synchronisatio 
50 Hz 
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standards 
alternés 
standards 
alternés 
standards 
alternés 
standards 


alternés 


OS Net St NS St St Not 


DS St 


simple 
hauteur 


double 
hauteur 


simple 
hauteur 


double 
hauteur 


n mode Texte sur 60 


n mode Texte sur 50 


n mode Graphique sur 


n mode Graphique sur 


Les codes de la première colonne s'utilisent après un 
ESC ou après un CHR$(27) avec un PRINT. 


Les codes de la deuxième colonne s'utilisent après un 
ESC ou après un CHR$(27) avec un print. 
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